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Vorwort 


Dieses BASIC-Einführungsbuch ist eine wertvolle Hilfe für jeden, der das 
leistungsstarke BASIC 7.0 auf dem Commodore 128 PC erlernen möchte. Es 
spricht sowohl den Computer-Neuling, als auch den Umsteiger vom Com¬ 
modore 64 oder von einem anderen Computer an, der sich die vielen zu¬ 
sätzlichen BASIC-Anweisungen, die BASIC 7.0 bietet und die anhand zahl¬ 
reicher Beispiele erläutert werden, zu eigen machen möchte. 

Mit BASIC 7.0 hat Commodore erstmals eine BASIC-Version herausge¬ 
bracht, die sich sehen lassen kann! Sie enthält viele Anweisungen, die man 
bisher bei Commodore-Computern vergeblich suchte oder nur unter Zu¬ 
hilfenahme von BASIC-Erweiterungen nutzen konnte. Dies betrifft vor 
allem die komfortablen Schleifenprogrammierungen mit IF...THEN...ELSE 
oder DO..LOOP, aber auch Diskettenoperationen, die eine relative Datei¬ 
verwaltung einschließen. 

Nicht zu übersehen sind auch die vielen Graphik- und Soundanweisungen. 
Nun ist endlich Schluß mit den seitenlangen DATA-Listings, die mühsam 
eingepoket werden mußten, wenn man einen Ton aus dem Computer her¬ 
ausbekommen wollte. Darüber hinaus ist es jetzt ein leichtes, Sprites zu 
definieren und über den Bildschirm zu bewegen. Aber auch das Arbeiten 
mit hochauflösender und Multicolor-Graphik wird zum Genuß. 

Die ersten beiden Kapitel behandeln allgemeine Grundlagen, die ein An¬ 
fänger unbedingt durcharbeiten sollte. Dem fortgeschrittenen Program¬ 
mierer dienen sie zur Wiederholung und Einarbeitung. Die folgenden Kapi¬ 
tel schließen immer mehr die Vorzüge des BASIC 7.0 mit ein. So lernen Sie 
in Kapitel 3 die komfortable Schleifenprogrammierung mit den neuen BA¬ 
SIC-Anweisungen kennen. Und Kapitel 4 setzt sich mit dem Programmauf¬ 
bau und der programmierten Fehlerbehandlung auseinander. Kapitel 5 wid- 
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met sich dann der Feld- und Listenverarbeitung, eine wichtige Grundlage 
für die eigentliche Dateiverwaltung im 6. Kapitel, die auch relative Dateien 
einschließt. Schließlich wendet sich das letzte Kapitel an alle Freunde von 
Graphik und Sound, die die vielen neuen BASIC-Anweisungen auf diesem 
Gebiet zu schätzen wissen. 
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1 Einführung 


1.1 BASIC - die Allroundsprache 

Dieses Buch behandelt das BASIC 7.0 für den Commodore PC 128. Zu¬ 
nächst wollen wir uns aber Klarheit darüber verschaffen, was BASIC über¬ 
haupt ist und einen kurzen Blick in die geschichtliche Entwicklung von 
Computern werfen. 

Viele von uns haben noch mechanische Rechenmaschinen oder den guten 
alten Rechenschieber in Erinnerung, die einzigen Hilfsmittel, die es früher 
gab, um Rechenvorgänge schneller, genauer und vor allem bequemer 
durchzuführen, als es mit Kopfrechnen möglich war. Im Zuge der techno¬ 
logischen Entwicklung suchte man bald nach Möglichkeiten, Berechnungen 
auch auf dem elektronischen Wege durchführen zu können. 

Ende der vierziger Jahre entstanden die ersten Computer, die sich aber 
noch völlig von den heutigen unterschieden, insbesondere was den inneren 
Aufbau, die Größe und die Leistungsfähigkeit betraf. Sie arbeiteten noch 
mit echten Relais, um Stromkreise zu schließen bzw. zu unterbrechen. Ein 
solches Relais konnte folglich nur eine logische Null-/Eins-Entscheidung 
übernehmen, die man auch als wahr/falsch oder ja/nein auf der niedrigsten 
Betriebsebene eines Computers interepretieren kann. 

An dieser Stelle wird uns auch klar, daß ein Computer nur auf binärer 
Ebene arbeiten, d.h. nur zwischen den beiden oben genannten Zuständen 
unterscheiden kann. Bei der Abarbeitung eines Programms geschieht dies 
jedoch tausend- und millionenfach. Diese kleinste Speicher- und Informa- 
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tionseinheit, die nur zwei Zustände bzw. Werte annehmen kann, wird in der 
Computertechnik als Bit bezeichnet. In der binären Schreibweise bezeichnet 
man diese Werte als 0 und 1. Wenn wir nun ein zweites Bit dazunehmen, 
verdoppeln sich die Informationsmöglichkeiten auf insgesamt vier Werte, 
wie das folgende Beispiel zeigt: 

0 = 00 1 = 01 2 = 10 3 = 11 

Jetzt fügen wir ein weiteres Bit hinzu, wodurch sich die Informtionsmög- 
lichkeiten auf acht verdoppeln: 

0 = 000 1 = 001 2 = 010 3 = 011 
4 = 010 5 = 101 6 = 110 7 = 111 

Wir sehen also, daß durch Zuschaltung eines jeden Bits oder Schaltkreises 
doppelt soviele Werte dargestellt werden können. Mathematisch ausgedrückt 
wachsen sie im Verhältnis zwei hoch der Anzahl der Bits. 

Sie können sich sicher denken, wieviele Schaltkreise oder Relais ein Old¬ 
timer-Computer besessen haben muß, um arithmetische Berechnungen mit 
10 Stellen Genauigkeit auszuführen. Kein Wunder also, daß man früher 
einen haushohen Computer brauchte, um die einfachsten Berechnungen 
durchzuführen zu können. Darüberhinaus waren diese Monstren auch ex¬ 
trem störanfällig und hatten einen enormen Strombedarf. 

Im Laufe der Zeit wurden die Relais durch Elektronenröhren und später 
durch Transistoren ersetzt, wodurch die Computer immer kleiner und lei¬ 
stungsfähiger wurden. Heute, im Zeitalter der Mikroelektronik, können in 
einem winzigen Chip Tausende solcher Schaltkreise untergebracht werden. 
Dabei werden meist mehrere Bits zu einer größeren Einheit zusammenge¬ 
faßt. Viele Computer, wie auch der PC 128, speichern und verarbeiten die 
Informationen in Einheiten von 8 Bit, die man auch als Bytes bezeichnet. 
Demnach ist Ihr PC 128 also ein 8-Bit-Rechner. Ein Byte kann demgemäß 
2*2*2*2*2*2*2*2 oder 2 hoch 8 bzw. 256 verschiedene Zustände annehmen 
bzw. Zahlenwerte darstellen. 

Stellen Sie sich jetzt einmal vor. Sie müßten Ihren Computer mit Bits und 
Bytes füttern oder programmieren und sollten auf dieser untersten Maschi¬ 
nenebene die Zahlen 4.8 und 13.5 miteinander multiplizieren. Sicher 
würden Sie bald die Lust verlieren und das Ergebnis schneller im Kopf 
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ausrechnen, ganz abgesehen davon, daß Sie fundierte Kenntnisse in der 
Maschinenprogrammierung benötigten und diese auch fehlerfrei anwenden 
müßten. Für spezielle Anwendungsgebiete wird diese Programmierungsart 
zwar noch gelegentlich eingesetzt, aber darauf soll in diesem Buch nicht 
weiter eingegangen werden. 

Schon sehr frühzeitig erkannte man diese Schwierigkeiten und suchte nach 
Wegen, den Computer auch einfacher programmieren zu können. Im Laufe 
der Zeit wurden deshalb sogenannte höhere Programmiersprachen entwik- 
kelt. Dabei genügt oft eine einfache und leicht verständliche Anweisung, 
um hochkomplizierte Vorgänge im Innern des Computers auszulösen. Auf 
dem PC 128 können Sie Berechnungen wie die oben genannte Multiplika¬ 
tion genauso einfach wie mit einem Taschenrechner durchführen. 

Eine dieser Programmiersprachen ist BASIC. Sie wurde in Dartmouth 
(USA) in den frühen sechziger Jahren entwickelt und galt als leicht zu er¬ 
lernende Sprache, um Anfängern das Programmieren auf Mikrocomputern 
beizubringen. 

Anfangs war BASIC eine Programmiersprache mit relativ wenigen Anwei¬ 
sungen. Im Laufe der Jahre wurde es jedoch ständig weiterentwickelt und 
erweitert. Heute ist es die Standard-Sprache der meisten Personal- und 
Homecomputer, die unproblematisch auf den verschiedensten Gebieten an¬ 
gewandt werden kann. Allerdings gibt es heute eine Reihe von BASIC-Dia- 
lekten, die zwar alle auf dem urspünglichen BASIC aufbauen, sich aber 
dennoch teilweise stark unterscheiden. So haben die meisten Computer 
ihren eigenen BASIC-Dialekt, der nicht ohne weiteres auch von anderen 
Computern verstanden werden kann. 

Neben BASIC gibt es noch eine Vielzahl anderer Programmiersprachen, die 
größtenteils auf bestimmte Anwendungsbereiche zugeschnitten sind. 
FORTRAN, der Vorgänger von BASIC, wurde beispielsweise für den tech¬ 
nisch-wissenschaftlichen Bereich und COBOL wurde für kaufmännische 
Anwendungen entwickelt. FORTH ist eine Sprache mit relativ wenigen Be¬ 
fehlen und wird für die maschinennahe Programmierung angewandt. Eine 
andere Sprache für strukturiertes Programmieren ist ALGOL, aus der später 
PASCAL und in jüngster Zeit auch ADA hervorgegangen sind. LOGO ist 
dagegen eine reine Lernsprache, mit der besonders Kinder den Umgang mit 
dem Computer einüben können. Weiter Sprachen sind C, COMAL, LISP, 
PL/1, um nur noch einige Beispiele zu nennen. 
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BASIC ist sicher deshalb so verbreitet, weil es auch heute noch leicht zu 
erlernen ist und die Vorzüge anderer Sprachen mehr oder weniger ver¬ 
einigt, was allerdings von Dialekt zu Dialekt verschieden ist. Bei vielen 
Computern, wie auch beim Commodore PC 128, ist BASIC direkt nach dem 
Einschalten verfügbar und muß nicht erst geladen werden. Darüber hinaus 
kann es sowohl als Interpreter- als auch als Compiler-Sprache Anwendung 
finden. Ein Interpreter liest den BASIC-Text, wie er eingegeben wurde, 
und arbeitet ihn direkt ab; ein Compiler dagegen übersetzt ihn erst in Ma¬ 
schinensprache oder in einen maschinennahen Code. 

Die meisten der oben genannten Programmiersprachen sind reine Compiler- 
Sprachen, deren Programme zwar schneller ablaufen, dafür aber nicht so 
leicht ausgetestet und korrigiert werden können. Nach jeder Änderung 
müssen sie erneut übersetzt oder compiliert werden. 

Das BASIC 7.0 des Commodore PC 128 ist eine reine Interpretersprache, 
bei der Programme nur eingetippt werden müssen und dann sofort ablauf- 
fähig sind. Dies ermöglicht ein äußerst bequemes Programmieren, bei dem 
Fehler schnell erkannt und behoben werden können. 


1.2 Das leistungsstarke BASIC 7.0 des Commodore 128 PC 

Falls Sie zu den Lesern gehören, die bereits mit dem Commodore 64 gear¬ 
beitet haben, ist Ihnen sicher das BASIC 2.0 bekannt. Der C64 war zwar 
bereits mit vielen gleichen Eigenschaften wie der PC 128 ausgestattet, je¬ 
doch fehlten hier häufig geeignete BASIC-Befehle, um diese auch nutzbar 
zu machen. Der Anwender mußte entweder auf sie verzichten oder über 
umfangreiche Kenntnisse des Betriebssystems und der Assemblerprogram¬ 
mierung verfügen, um das Letzte aus dem Computer herauszulocken. 

Gemeint sind hier in erster Linie die Befehle für Graphik und Sound. Un¬ 
zählige DATA-Zeilen sowie zahlreiche POKE- und PEEK-Befehle waren 
hierfür nötig und strapazierten die Geduld eines manchen Programmierers. 
Es gab aber auch viele BASIC-Erweiterungen auf Diskette oder in einem 
Modul zu kaufen, um diesem Dilemma mehr oder weniger Abhilfe zu 
schaffen. Ein Beispiel hierfür ist Simons-Basic. 
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Aber auch die Bedienung der Peripheriegeräte war zwar von BASIC aus 
möglich, benötigte aber zum Teil recht umfangreiche Befehle. Ein typisches 
Beispiel hierfür sind einige Diskettenoperationen, wie etwa die Verwaltung 
von relativen Dateien. Als weiteres gab es kein zeilenbezogenes RESTORE 
für DATA-Anweisungen, so daß der DATA-Zeiger immer auf die erste 
DATA-Anweisung zurückgesetzt wurde. Zur Schleifenprogrammierung 
stand lediglich die FOR...NEXT-Anweisung für eine vorgegebene Anzahl 
von Wiederholungen zur Verfügung; eine Abbruchbedingung würde er¬ 
höhten Programmieraufwand erfordern. 

Mit dem leistungsstarken BASIC 7.0 des PC 128 hat Commodore endlich 
eine BASIC-Version herausgebracht, die sich sehen lassen kann und solchen 
Einschränkungen nicht mehr unterliegt! Darüber hinaus enthält dieses 
BASIC sämtliche Befehle der früheren BASIC-Versionen 2.0 (C-64), 3.5 
(C-16 und Plus/4) und 4.0 (CBM 80xx). Es stellt echte Grafikbefehle wie 
DRAW, BOX oder CIRCLE zur Verfügung, unterstützt die Programmie¬ 
rung von Sprites und Sound und ermöglicht die Abfrage von Joystick, 
Lightpen und Paddies. Damit ist mit unübersichtlichen POKE- und PEEK- 
Befehlen und den unendlich vielen DATA-Zeilen endlich Schluß. 

Aber auch andere Unbequemlichkeiten gehören jetzt der Vergangenheit an. 
BASIC 7.0 enthält die PRINT USING-Anweisung, welche die formatierte 
Ausgabe stark vereinfacht. Mit WINDOW können Sie Bildschirmfenster de¬ 
finieren, auf die sich alle PRINT- und INPUTAnweisungen beziehen. Eine 
Programmunterbrechung kann jetzt durch die SLEEP-Anweisung erreicht 
werden und benötigt keine FOR...NEXT-Schleife mehr. Für das Disketten¬ 
handling stehen sämtliche komfortablen Befehle des BASIC 4.0 zu Verfü¬ 
gung, die auch die Verarbeitung relativer Dateien mit einschließen. Auch 
können Sie sich jederzeit das Inhaltsverzeichnis der Diskette ansehen, ohne 
ein im Arbeitsspeicher befindliches BASIC-Programm zu zerstören. 

Verzweigungen und Schleifen lassen sich unter BASIC 7.0 elegant pro¬ 
grammieren. IF...THEN...ELSE ist hier ebenso selbstveständlich wie DO 
WHILE...LOOP bzw. DO UNTIL...LOOP und BEGIN...BEND. EXIT ver¬ 
läßt eine Schleife und setzt die Programmausführung mit der ersten Anwei¬ 
sung hinter der Schleife fort. Somit entfällt die GOTO-Anweisung, zu der 
man immer die richtige Zeilennummer einsetzen mußte. 
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BASIC 7.0 ermöglicht eine Fehlerbehandlung ohne Programmabbruch. Die 
TRAP-Anweisung verzweigt auf die Zeile, in der die Fehlerbehandlung 
beginnt. Gleichzeitig enthält die Variable ER die Fehlernummer und EL 
die Nummer der Zeile, in der der Fehler auftrat. Nach Ausführung der 
Fehlerbehandlung setzt die Anweisung RESUME die normale Programm¬ 
ausführung fort. 

Der PC 128 bietet darüber hinaus einige Programmierhilfen wie AUTO 
(automatische Zeilennumerierung), RENUMBER (Neunumerierung der Pro¬ 
grammzeilen einschließlich aller Verzweigungsanweisungen mit Zeilen¬ 
nummern), TRON/TROFF (schrittweise Programm Verfolgung) sowie 
DELETE (Löschen von Programmzeilen). 

Nicht zu vergessen ist auch der 80-Zeichen-Bildschirm, der wahlweise ein¬ 
geschaltet werden kann. Damit wird ein Handicap beseitigt, das eine ver¬ 
nünftige Textverarbeitung bisher nicht möglich machte. Allerdings besitzt 
der PC 128 Anschlüsse für zwei Bildschirme, einen Composite- und einen 
RGBI-Monitor. Der CompositeMonitor - notfalls genügt auch ein Fernseh¬ 
gerät - dient zur Wiedergabe von HIRES-Graphiken (200x320 Punkte) oder 
40 Textzeichen pro Zeile, wie beim C-64 üblich. Der RGBI-Monitor liefert 
dagegen ein schärferes Bild mit einer Auflösung von 200x640 Punkten, die 
für eine 80-Zeichen-Darstellung unerläßlich ist und deshalb auch zu diesem 
Zweck auf dem PC 128 Verwendung findet. Die Ausgabe hochauflösender 
Graphik ist über den RGB-Ausgang allerdings (leider!) nicht möglich. 

Im BASIC 7.0 gibt es einen SLOW- und einen FAST-Modus. Im SLOW- 
Modus wird der 8502-Mikroprozessor mit 1 MHz (etwa wie beim C-64) 
und im FAST-Modus mit 2 MHz getaktet, was eine doppelt schnelle Abar¬ 
beitung der Programme zur Folge hat. Der 80-Zeichen-Schirm steht unter 
beiden Betriebsarten zur Verfügung. 
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1.3 Die Hardware - Zusammenstellung des Systems 

Bevor wir mit der eigentlichen BASIC-Programmierung beginnen, wollen 
wir einen kurzen Blick auf den Aufbau der 128 PC-Anlage werfen und uns 
mit den wichtigsten Ausbaumöglichkeiten beschäftigen. 

Wenn Sie sich den Commodore 128 PC bei Ihrem Händler besorgen, erhal¬ 
ten Sie noch lange keine komplette, funktionstüchtige Computeranlage. Was 
als 128 PC angeboten wird, ist lediglich das Grundgerät, also die Zentral¬ 
einheit, die erst im Zusammenhang mit anderen Geräten ihre Arbeit auf¬ 
nehmen kann. 


1.3.1 Grundgerät 

Nach dem Auspacken des Computers sehen Sie ein flaches, formschönes 
und beigefabenes Gehäuse vor sich. Auf den ersten Blick fällt die große 
und bedienerfreundliche Tastatur ins Auge, die weit mehr Tasten enthält 
als eine normale Schreibmaschine. 
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Unter diesem Gehäuse verbirgt sich aber eine große Menge an Intelligenz 
und enormes Speichervermögen. Als wichtigstes Merkmal sei hier betont, 
daß Ihr 128 PC eigentlich drei verschiedene Computer in einem enthält: 
einen altbewährten Commodore 64, einen CP/M-Rechner und, was uns in 
diesem Buch am meisten interessiert, einen leistungsstarken BASIC-7.0- 
Rechner mit 140 Befehlen und etwa 122K BASIC-Speicher. 

Zusammen mit Ihrem Computer erhalten Sie noch ein Handbuch, ein Netz¬ 
teil sowie ein Antennenkabel geliefert, das sie benötigen, wenn Sie ein 
Fernsehgerät an Ihren 128 PC anschließen möchten. 


1.3.2 Bildschirm 

Apropos Fernsehgerät. Um mit Ihrem 128 PC auch arbeiten zu können, be¬ 
nötigen Sie einen Bildschirm. Als einfachste Möglichkeit bietet sich hierzu 
ein Schwarzweiß- oder Farbfernsehgerät an. Mit dieser minimalen Grund¬ 
ausstattung können Sie bereits Ihren 128 PC betreiben. 

Auf der Rückseite des Computers befindet sich eine kleine runde Buchse, 
in die Sie das Antennenkabel einstecken. Das andere Ende des Kabels 
stecken Sie in den Antenneneingang Ihres Fernsehgerätes. Jetzt schließen 
Sie das Netzteil an. Der Netzstecker kommt in die Steckdose und der qua¬ 
dratische Stecker wird rechts in den Computer eingesteckt. Unmittelbar 
daneben befindet sich der Ein- und Ausschalter Ihres 128 PC. 

Schalten Sie jetzt Ihren Computer und das Fernsehgerät ein und wählen Sie 
Kanal 36 im UHF-Bereich. Dies ist der Frequenzbereich, auf dem in der 
Regel das ZDF und die Dritten Programme senden. Haben Sie den richtigen 
Kanal gefunden, sehen Sie folgende Einschaltmeldung auf dem Bildschirm: 

COMMODORE BASIC V7.0 122365 BYTES FREE 
(C)1985 COMMODORE ELECTRONICS, LTD. 

(C)1977 MICROSOFT CORP. 

ALL RIGHTS RESERVED 


READY. 

Jetzt können Sie auf Ihrem 128 PC mit dem Programmieren beginnen! 

Sollten Sie Ihren 128 PC nur im C-64-Modus betreiben wollen, geben Sie 
nach dem Einschalten einfach G064 ein, und es steht Ihnen ein kompletter 
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Commodore 64 zur Verfügung. Allerdings beschäftigen wir uns in diesem 
Buch nicht gesondert mit dem BASIC 2.0, denn es ist einerseits voll im 
Befehlssatz des BASIC 7.0 enthalten und andererseits ist eine große Anzahl 
von Büchern auf dem Markt, die sich speziell mit dem Commodore 64 und 
dessen BASIC-Programmierung befassen. 

Nun erzeugt ein Fernsehgerät keinesfalls die optimale Bildqualität, die 
letztlich in Ihrem Computer steckt. Dies liegt darin begründet, daß das 
Bild- und Tonsignal, ähnlich wie bei einem Fernsehsender, zunächst mit 
einem Hochfrequenzträger überlagert (moduliert), der im Empfangsteil des 
Fernsehgerätes selbst wieder entfernt (demoduliert) wird. Der Hochfre¬ 
quenzträger hat jedoch eine zu geringe Bandbreite, um das Videosignal in 
guter Qualität zu übertragen. Deshalb sollte ein Fernsehgerät lediglich als 
Notbehelf dienen. 

Eine weitaus bessere Qualität bietet ein Monitor mit einem Composite-Ein- 
gang, der nicht nur ein schärferes Bild, sondern auch reinere Farben er¬ 
zeugt, falls es sich um einen Farbmonitor handelt. Leider überträgt der 
Composite-Ausgang des 128 PC nur 40 Zeichen pro Zeile und selbst die 
hochauflösende Graphik umfaßt nur 320 * 200 Pixels. 

Heutzutage haben aber die meisten Personal-Computer einen 80- Zeichen- 
Bildschirm. Der Commodore 128 PC bietet diese Möglichkeit auch, aller¬ 
dings nur über einen zweiten Monitor, der der RGBI-Norm angepaßt sein 
muß. Angeschlossen wird er über die schmale D-Buchse an der Rückseite 
des Gehäuses. Gegenüber der Composite-Norm erzeugt die RGBI-Norm ei¬ 
ne noch bessere Schärfe und Farbtrennung, da die drei Farbkomponenten 
(Rot, Grün, Blau) separat übertragen werden. 

Der RGBI-Ausgang hat zwar eine Auflösung von 80 Zeichen pro Zeile, 
wird aber nicht von der hochauflösenden Graphik unterstützt. Somit ist der 
Anwender, was die Graphik anbetrifft, auf die Auflösung angewiesen, die 
bereits der C-64 bietet. 

Um überhaupt in den 80-Zeichen-Modus zu gelangen, muß noch vor dem 
Einschalten des Gerätes die 40/80-DISPLAY-Taste eingerastet werden. 
Dann nämlich arbeitet der RGBI-Ausgang im 80-Zeichen-Modus, während 
der Composite-Ausgang lediglich für Graphik reserviert ist. Zur vollen 
Ausnutzung der Fähigkeiten des PC 128 sind also zwei verschiedene Moni- 
tore erforderlich. Commodore bietet den Monitor 1902 an, der wahlweise 
nach der Composite- und nach der RGBI-Norm betrieben werden kann. 
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Wir wissen bereits, daß der 128 PC einen SLOW- und einen FAST-Modus 
besitzt. Im SLOW-Modus arbeitet er etwa mit der gleichen Geschwindigkeit 
wie der C-64, nämlich mit 1 MHz, während er im FAST-Modus mit 2 
MHz getaktet wird. In diesem Modus kann jedoch nur der RGBI-Monitor 
mit 40- oder 80-Zeichen-Darstellung betrieben werden, wobei es allerdings 
keine Graphikmöglichkeiten gibt. 


1.3.3 Datasette 

Nachdem wir nun das Problem mit dem Bildschirm gelöst haben, müssen 
wir uns überlegen, welches Speichermedium wir verwenden. Die einfachste 
und billigste Möglichkeit bietet die Datasette. Sie ist im Prinzip ein umge¬ 
bauter, handelsüblicher Kassettenrekorder und wird auch mit normalen 
Tonkassetten betrieben. Die Nachteile sind eine sehr geringe Aufzeich- 
nungs- und Wiedergabegeschwindigkeit und die große Gefahr, daß bei 
mehreren Dateien auf einem Band Überschneidungen auftreten können, 
wenn man sich nicht genau anhand des Zählwerkes Bandstelle und Länge 
merkt. Auch das Arbeiten mit Direktzugriffs- oder relativen Dateien ist 
nicht möglich. 


1.3.4 Floppylaufwerk 

Eine wesentlich komfortablere Möglichkeit zum Speichern von Programmen 
und Daten bietet ein Floppylaufwerk, das mit Disketten als Datenträger ar¬ 
beitet. Eine Diskette ist eine in einer Schutzhülle eingeschlossene runde 
Magnetscheibe, die sich im Laufwerk mit hoher Geschwindigkeit dreht, 
während Daten auf sie geschrieben bzw. von ihr gelesen werden. 

Das Aufzeichnungsverfahren einer Diskette unterscheidet sich von dem 
einer Kassette ganz wesentlich. Während der Kassettenrekorder die Daten 
hintereinander (sequentiell) auf nimmt, werden sie auf der Diskette in 
einzelnen Sektoren von 256 Bytes abgelegt. Damit dies möglch wird, muß 
eine fabrikneue Diskette zunächst einmal formatiert werden. Bei der For¬ 
matierung werden Spuren erzeugt, die konzentrische Kreise auf der Dis¬ 
kette bilden. Jede Spur ist wiederum in eine Anzahl von Sektoren unterteilt, 
von denen bei den Commodore-Laufwerken jeder 256 Bytes an Informatio¬ 
nen auf nehmen kann. 

Wird nun ein Programm oder eine Datei auf Diskette geschrieben, so wird 
sie, prinzipiell betrachtet, in 256-Byte-Abschnitten verschiedenen Sektoren 
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zugeordnet. Jeder Sektor enthält außerdem einen Zeiger, der auf den je¬ 
weils nächsten Sektor der Datei zeigt. Außerdem werden alle belegten Sek¬ 
toren in einem besonderen Verzeichnis vermerkt. Beim Schreiben einer 
neuen Datei gibt dieses Belegungsverzeichnis darüber Auskunft, welche 
Sektoren bereits belegt und welche noch frei sind. In diesem Zusammen¬ 
hang wird die Datei auch in dem Inhaltsverzeichnis (Directory) eingetragen, 
das neben ihrem Namen noch Informationen über den Dateityp, die Anzahl 
der belegten Sektoren und - für den Benutzer nicht sichtbar - einen Zeiger 
auf den ersten Sektor der Datei enthält. 

Darüber hinaus bietet ein Floppylaufwerk die Möglichkeit, auf einzelne 
Sektoren direkt zuzugreifen oder relative Dateien anzulegen, die im Prinzip 
ebenfalls ein Direktzugriffsverfahren darstellen. Besitzt man eine Datei mit 
vielen Datensätzen, muß nicht immer erst die gesamte Datei eingelesen und 
durchsucht werden, da auf jeden Datensatz direkt zugegriffen wird. Des¬ 
halb läßt sich mit Direktzugriffsdateien auch wesentlich schneller arbeiten 
als mit sequentiellen Dateien. Das Arbeiten mit solchen Dateien werden wir 
im Laufe dieses Buches noch genauer kennenlernen. 

Zusammen mit dem 128 PC hat Commodore auch ein dazu passendes Flop¬ 
pylaufwerk mit der Bezeichnung 1571 auf den Markt gebracht. Dieses 
Laufwerk wird an den seriellen Bus (serielle Schnittstelle) des 128 PC 
angeschlossen. Im C-128-Modus erfolgt ein fünf- bis sechsfach schnellerer 
Datentransfer als beim Vorgängermodell 1541. Darüber hinaus werden hier 
die Disketten beidseitig beschrieben, wodurch eine doppelte Aufzeich¬ 
nungskapazität erreicht wird. 

Sollten Sie bereits im Besitz einer 1541-Floppy sein, können Sie diese je¬ 
doch mit dem 128 PC betreiben; dabei geht allerdings der Geschwindig¬ 
keitsvorteil und die doppelseitige Aufzeichnung verloren. Disketten, die mit 
der 1571-Floppy im C-128-Modus beschrieben wurden, sollten Sie, um die 
Gefahr des Datenverlustet zu vermeiden, nicht mit der 1541-Floppy lesen 
und umgekehrt. Ist der C-64-Modus eingeschaltet, arbeitet die Floppy 1571 
genauso wie die Floppy 1541. 

Hier noch ein Hinweis für alle Leser, die bereits mit dem C-64 gearbeitet 
haben. Reine BASIC-Programme, die mit dem BASIC 2.0 geschrieben wur¬ 
den, laufen auch auf dem 128 PC unter BASIC 7.0, sofern sie keine Zu¬ 
griffsbefehle auf den Speicher oder das Betriebssystem enthalten. Achten 
Sie deshalb darauf, daß sie frei von POKE-, PEEK-, SYS- und USR-Be- 
fehlen sind. Solche BASIC-Programme können Sie über die Floppy 1541 
oder über Kassette laden und dann unter BASIC 7.0 ausführen. 
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Für Ihr Floppylaufwerk sollten Sie nur Marken-Disketten mit guter Quali¬ 
tät verwenden. So manches Billigangebot in Fachzeitschriften entspricht 
nicht dem erforderlichen Quälitätsstandard. Geben Sie deshalb lieber ein 
paar Mark mehr für Ihre Disketten aus, um die Wahrscheinlichkeit von 
Datenverlusten auf ein Minimum zu reduzieren. Auf keinen Fall sollten Sie 
es jedoch versäumen, von allen wichtigen Programmen und Dateien eine 
Sicherheitskopie anzulegen, möglichst auf einer anderen Diskette. 


1.3.5 Drucker 

An den seriellen Bus können Sie auch einen Drucker anschließen. In Frage 
kommen hier in erster Linie die Commodore-Drucker MPS 801 und MPS 
802 (vormals 1526). Beide besitzen den kompletten Commodore-Zeichensatz 
und sind graphikfähig, d.h. die Drucknadeln können einzeln angesprochen 
werden. Allerdings unterscheiden sich beide Drucker bei der Program¬ 
mierung der Einzelnadelansteuerung. Soll eine Hardcopy vom Bildschirm 
erstellt werden, empfiehlt es sich ohnehin aus Zeitgründen, dies mit Hilfe 
eines Maschinenprogramms vorzunehmen, auf das wir aber im Rahmen die¬ 
ses BASIC-Lehrbuches nicht näher eingehen wollen. 

Mit Sicherheit wird, ähnlich wie für den C-64, bald auch ein Centronics- 
Interface (parallele Schnittstelle) für den 128 PC angeboten. Mit einem 
solchen Interface können Sie jeden Drucker betreiben, der mit einer Cen- 
tronics-Schnittstelle ausgestattet ist (z.B. EPSON-Drucker). Fast alle diese 
Drucker verarbeiten aber den Standard-ASCII-Zeichensatz, und meistens ist 
auch der deutsche Zeichensatz einstellbar. Viele Interfaces nehmen eine 
Codewandlung bereits automatisch vor; ist dies nicht der Fall, müssen Sie 
sich ein eigenes Treiberprogramm schreiben. 

Ein weiterer Vorteil vieler markenfremder Drucker mit Centronics-Schnitt- 
stelle ist die Fähigkeit, verschiedene Schrifttypen, Schriftbreiten, Unter¬ 
streichungen, Unterlängen etc. zu drucken. Dazu sind allerdings spezielle 
Steuerzeichen nötig, die leider nicht genormt sind. Deshalb ist auf jeden 
Fall eine Anpassung nötig. 

Über die Centronics-Schnittstelle können Sie auch verschiedene Typenrad¬ 
drucker anschließen. Solche Drucker besitzen zur Erzeugung von Zeichen 
keine Drucknadeln, wie es bei den bisher betrachteten Matrixdruckern der 
Fall war, sondern - wie der Name bereits besagt - ein Typenrad. 
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Für den Hausgebrauch ist ein Matrixdrucker meist vollkommen ausrei¬ 
chend. Nur für besondere Zwecke sollte man sich einen Typenraddrucker 
zulegen, der überdies auch wesentlich teurer ist. Falls Sie lediglich Ihre 
Programmlistings und einige Tabellen ausdrucken wollen, genügen die 
Commodore Drucker MPS 801 und MPS 802 vollauf. Sie bewegen sich 
preislich bei ca. 800 DM und benötigen kein Centronics-Interface, das 
weitere 300 DM kostet. 


1.3.6 Noch einmal - die Tastatur 

Der Commodore 128 PC hat gegenüber seinem Vorgängermodell C-64 eine 
wesentlich erweiterte Tastatur, wie sie ansonsten nur bei Personal-Com¬ 
putern anzutreffen ist. Besonders auffällig ist die gesonderte Zifferntastatur 
rechts neben der Haupttastatur. Damit lassen sich recht einfach große 
Zahlenkolonnen in den Rechner eingeben, was speziell im kaufmännischen 
Bereich oder bei der Tabellenkalkulation sehr nützlich und hilfreich ist. 
Auch Leser, die es gewohnt sind, Maschinenprogramme in Form von end¬ 
losen DATA-Anweisungen einzugeben, werden diese Tastatur zu schätzen 
wissen. Außer den Ziffern 0 bis 9 enthält die Zifferntastatur noch eine 
Plus-, Minus- und Punkttaste. Nicht zu übersehen ist die hochstehende 
ENTER-Taste, die die gleiche Funktion wie die RETURN-Taste auf der 
Haupttastatur besitzt. Wahrscheinlich wurde sie nur deshalb an dieser Stelle 
angebracht, um ein ebenso komfortables Arbeiten wie mit einer Registrier¬ 
maschine zu ermöglichen. 

Die eigentliche Haupttastatur ist im Aufbau mit der des Commodore-64 
völlig identisch. So ist auch zu erklären, daß im C-64-Modus nur diese 
Tastatur und die vier Funktionstasten funktionieren, während alle anderen 
Tasten abgeschaltet sind. 

Die Funktionstasten sind oberhalb der Zifferntastatur angebracht und zwar 
waagerecht, im Gegensatz zu der senkrechten Anordnung beim C-64. Sie 
sind hier bereits vorbelegt, wie die folgende Aufstellung zeigt. 
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Taste 

BASIC-Anweisung 

Funktion 

Fl 

GRAPHIC 

Umschaltung in den Graphik-Modus 

F2 

DLOAD" 

BASIC-Pogramm laden 

F3 

DIRECTORY 

Anzeige des Disketten-Inhaltsverzeich- 
nisses 

F4 

SCNCLR 

Löscht den Bildschirm (nur Graphik- 
Modus) 

F5 

DSAVE" 

BASIC-Programm speichern 

F6 

RUN 

Lädt BASIC-Programm und startet es, 
falls mit Namen 

F7 

LIST 

Listet BASIC-Programm auf dem Bild¬ 
schirm 

F8 

MONITOR 

Schaltet den Maschinen-sprachemonitor 
ein 


Diese Vorbelegung mit Funktionen ist eine große Erleichterung für den 
Anwender, der häufig mit ihnen arbeiten muß. Man kann die Belegung 
aber auch ändern und sie seinen eigenen Wünschen anpassen. Dies geschieht 
mit der KEY-Anweisung. 

Angenommen, Sie möchten die Belegung der Funktionstaste F4 so abän¬ 
dern, daß nicht mehr der Graphik- sondern der normale Textbildschirm 
gelöscht wird. Geben Sie dazu folgendes ein: 

KEY 4, CHR$( 147)+CHR$( 13) 

oder 

KEY 4, "<CLR>"+CHR$( 13) 

Beide Anweisungen sind völlig identisch. Um den Bildschirm zu löschen, 
können Sie entweder 

PRINT CHR$(147) oder PRINT "<CLR>” 

eingeben. <CLR> steht hier für das Drücken der CLR-Taste rechts oben 
auf der Tastatur (mit SHIFT). CHR$(13) ist gleichbedeutend mit dem 
Drücken der RETURN-Taste, denn wir wollen ja nicht nur die Anweisung 
auf den Bildschirm schreiben, sondern sie auch gleich ausführen. 
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Links neben den Funktionstasten befinden sich vier Cursor-Tasten, deren 
Funktion mit denen rechts unten völlig identisch ist. 

Nachfolgend nun noch kurz die Beschreibung der restlichen Sondertasten in 
der oberen Reihe: 

Die ESC-Taste findet im Zusammenhang mit einer oder mehreren Textta¬ 
sten Verwendung, um eine Escape-Code-Sequenz unter CP/M zu erzeugen. 

TAB ist eine Tabulatortaste, mit der der Cursor an die nächste Tabulator¬ 
position gesetzt wird. 

Mit der ALT-Taste können beliebigen Tasten Funktionen zugeordnet wer¬ 
den, ähnlich wie es bei den Funktionstasten der Fall ist. Soll eine Funktion 
aufgerufen werden, ist die zugeordnete Taste zusammen mit der ALT-Taste 
zu drücken. 

Wird die ASCII-DIN-Taste im 40-Zeichen-Modus gedrückt, schaltet der 
128 PC auf den deutschen Zeichensatz um. Dabei wird gleichzeitig die 
Tastatur einer deutschen DIN-Tastatur angepaßt, d.h. einige Tasten haben 
nicht mehr ihre ursprüngliche Bedeutung. 

Die HELP-Taste dient zum leichteren Aufsuchen von Fehlern in BASIC- 
Programmen. Sie sollte immer dann gedrückt werden, wenn das Programm 
aufgrund einer Fehlermeldung abbricht. Dadurch wird die Zeile, in der der 
Fehler auftrat, gelistet und die fehlerhafte Anweisung invers dargestellt. 

LINE FEED erzeugt auf dem Bildschirm einen Zeilenvorschub ohne Wa¬ 
genrücklauf (Carriage Return). Wird diese Taste gedrückt, wandert der 
Cursor um eine Zeile nach unten, ohne seine derzeitige Spaltenposition zu 
verlassen. 

40/80 DISP schaltet vom 40 auf den 80-Zeichen-Bildschirm um. Achtung! 
Diese Taste sollte bereits vor dem Einschalten des Computers ein- bzw. 
ausgerastet werden. Ansonsten sind nur auf dem RGBI-Monitor 80 Zeichen 
pro Zeile darstellbar. 

NO SCROLL verhindert ein Abwandern des Cursors unter die 25. Bild¬ 
schirmzeile, unterbricht LIST-Vorgang. 
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1.4 Direkt- und Programmodus 

Ihren Computer können Sie auf zwei Arten betreiben, nämlich im Direkt- 
und im Programmodus. Im Direktmodus erteilen Sie dem Computer In¬ 
struktionen, die er unmittelbar nach der Eingabe abarbeitet. Sie tippen 
lediglich die entsprechenden Anweisungen ein und drücken die RETURN- 
Taste. 

Anders ist es im Programmodus. Hier müssen Sie zunächst Programmzeilen 
eingeben, die der Computer in seinem Arbeitsspeicher ablegt. Das Pro¬ 
gramm wird erst abgearbeitet, wenn der Computer den entsprechenden Be¬ 
fehl dazu erhält. 

Im Gegensatz zu vielen anderen Computern besitzt der PC 128 einen kom¬ 
fortablen Bildschirmeditor, dessen Vorzüge wir später noch kennenlernen 
werden. Ein Editor ist ein internes Maschinenprogramm, das dazu dient, 
BASIC-Zeilen und sonstige Instruktionen über Tastatur und Bildschirm ein¬ 
zugeben bzw. zu korrigieren (editieren). Ist eine Zeile fertig eingegeben, 
wird sie durch Drücken der RETURN-Taste abgeschlossen. Im Direktmo¬ 
dus wird sie sogleich ausgeführt und im Programmodus als Programmzeile 
gespeichert. 

Wie versteht nun der Computer, ob er im Direkt- oder Programmodus ar¬ 
beiten soll? Dies ist ganz einfach: Steht nämlich nach dem Drücken der 
RETURN-Taste am Zeilenanfang eine Zahl, so handelt es sich um eine 
Programmzeile, anderenfalls um eine Zeile, die im Direktmodus abgearbei¬ 
tet wird. Die meisten Anweisungen können sowieso sowohl im Programm¬ 
als auch im Direktmodus erteilt werden. 

Zum besseren Verständnis wollen wir nun ein paar Beispiele betrachten. 
Wir kennen bereits den Cursor, das blinkende Kästchen auf dem Bild¬ 
schirm. Der Cursor erscheint immer dann, wenn der Computer bereit ist, 
neue Anweisungen über die Tastatur entgegenzunehmen; er zeigt dann auf 
die Stelle, an der das nächste Zeichen auf dem Bildschirm erscheint. Geben 
wir ein Zeichen ein, erscheint es an der Cursorposition und der Cursor 
selbst rückt um eine Stelle nach rechts, wo er auf das nächste Zeichen 
wartet. 
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Achten Sie jetzt bitte darauf, daß der Cursor am Anfang einer leeren Bild¬ 
schirmzeile steht. Wenn nicht, drücken Sie gleichzeitig die SHIFT- und die 
CLR-/HOME-Taste, was ein Löschen des Bildschirms zur Folge hat. Falls 
dies in Ausnahmefällen einmal nicht funktioniert und stattdessen merkwür¬ 
dige reverse Zeichen auf dem Bildschirm erscheinen, drücken Sie einfach 
die RETURN-Taste und wiederholen diese Anweisung. Unter Umständen 
erscheint nach dem Drücken der RETURN-Taste die Meldung 7SYNTAX 
ERROR, die uns aber im Augenblick nicht weiter zu interessieren braucht. 
Fahren Sie mit den nachfolgend beschriebenen Anweisungen fort. 

Zunächst wollen wir im Direktmodus arbeiten; geben Sie dazu folgendes 
ein: 


PRINT "GUTEN TAG, ICH BIN DER PC 128" <RETURN> 

Das Wort <RETURN> tippen Sie nicht in Buchstaben ein, sondern drücken 
statt dessen die RETURN-Taste. Diese Schreibweise wird vorläufig noch 
beibehalten, um Sie darauf aufmerksam zu machen, daß die Zeile durch 
Drücken der RETURN-Taste abgeschlossen werden muß. 

Haben Sie die Zeile korrekt eingegeben, erscheint auf dem Bildschirm die 
Meldung: 

GUTEN TAG, ICH BIN DER PC 128 
READY. 

Der Cursor ist wieder sichtbar und signalisiert, daß der Computer bereit ist, 
weitere Anweisungen entgegenzunehmen. 

Wir haben hier bereits den ersten Befehl, PRINT, kennengelernt, der den 
Computer anweist, eine Zeichenkette auf dem Bildschirm auszugeben. 
PRINT bezeichnet man auch als Schlüsselwort, das der Computer als Befehl 
interpretiert. Hinter PRINT steht dann in Anführungszeichen die Zeichen¬ 
kette, die ausgegeben werden soll. 

Versuchen Sie jetzt einmal, die gleiche Anweisung nochmals einzugeben, an 
den Zeilenanfang aber die Zahl 10 zu setzen: 


10 PRINT "GUTEN TAG, ICH BIN DER PC 128” <RETURN> 
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Nach Drücken der RETURN-Taste erscheint dieses Mal keine Meldung 
sondern nur der Cursor. Wir haben nämlich die Anweisung, eine Meldung 
auszugeben, in eine Programmzeile mit der Nummer 10 gepackt. Diese Pro¬ 
grammzeile legt der Computer im Speicher ab. Damit erstellten wir ein 
BASIC-Programm, das aus einer einzigen Zeile besteht und das wir jetzt 
ablaufen lassen, indem wir 

RUN <RETURN> 

eingeben. Wieder erscheint die Meldung 

GUTEN TAG, ICH BIN DER PC 128 

READY. 

Im allgemeinen besteht ein BASIC-Programm natürlich aus einer Vielzahl 
von Programmzeilen, die in aufsteigender Reihenfolge numeriert sind. 
Dabei sind Zeilennummern zwischen 0 und 63999 zulässig. Zwar gibt es 
kein BASIC-Programm, das 64000 Zeilen umfaßt, denn dazu wäre der 
Speicher viel zu klein. Wir können aber verschiedene Programmsegmente 
mit runden Zeilennummern (z.B. 1000, 2000, 3000 usw.) beginnen lassen, 
um die Übersichtlichkeit zu erhöhen. 

Doch zunächst wollen wir ein kleineres Programm mit mehreren Zeilen 
schreiben. Geben Sie dazu als nächstes ein: 

NEW <RETURN> 

Dieser Befehl löscht den BASIC-Arbeitsspeicher, so daß Sie jetzt ein neues 
Programm eingeben können, das dieses Mal aus drei Programmzeilen beste¬ 
hen soll. Von nun an verzichten wir in unseren Anweisungen auf den Hin¬ 
weis <RETURN>, denn wir wissen ja bereits, daß wir jede BASIC-Zeile 
sowohl im Direkt- als auch im Programmodus durch Drücken der RE¬ 
TURN-Taste abschließen müssen. 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

20 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 

30 PRINT "DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!!" 
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Geben Sie jetzt wieder 
RUN 

ein. Darauf läuft das Programm ab und gibt folgende Meldung(en) aus: 

GUTEN TAG, ICH BIN DER PC 128 

UND BRINGE IHNEN GROSSE NEUIGKEITEN, 

DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!! 

An diesem Beispiel sehen wir ganz deutlich, daß der Computer die Pro¬ 
grammzeilen der Reihe nach abarbeitet. Wir haben hier die Zeilennummern 
10, 20 und 30 benutzt, was zwar üblich ist, aber keinesfalls so sein muß. 
Wir hätten ebenso die Nummern 1,2,3 oder 967, 22345, 61120 verwenden 
können und damit das gleiche Ergebnis erzielt. Versuchen Sie es doch ein¬ 
mal! 

Die meisten Programmierer verwenden jedoch Zehnerschritte, da sie dann 
immer noch die Möglichkeit haben, zwischen zwei Zeilen bis zu neun wei¬ 
tere Zeilen einzufügen. Wie das funktioniert, werden wir gleich sehen. 


1.5 Programmierhilfen 

Betrachten wir nochmals unser kleines Programm, das wir soeben eingege¬ 
ben und ausgeführt haben. Wurde es nicht durch NEW gelöscht, steht es 
immer noch im Speicher und wir könnten es beliebig oft ablaufen lassen, 
erweitern, ändern, auf Diskette oder Kassette abspeichern usw. 

Ist Ihnen eigentlich bei unserem einzeiligen und dreizeiligen Programm et¬ 
was aufgefallen? Wenn ja, dann gehören Sie schon zu den fortgeschrit¬ 
teneren Programmierern. 

Zeile 10 (unser erstes Programm) ist nämlich auch in dem zweiten Pro¬ 
gramm exakt enthalten. Daher wäre es nicht unbedingt notwendig gewesen, 
den Arbeitsspeicher mit NEW zu löschen und dann die gleiche Zeile erneut 
einzugeben. Wir hätten nur die Zeilen 20 und 30 anhängen müssen, indem 
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wir sie eintippen und die RETURN-Taste drücken. Dabei spielt es keine 
Rolle, ob Sie nach Zeile 10 zuerst Zeile 30 und dann Zeile 20 eingeben 
oder umgekehrt. Der Editor setzt jede eingegebene Zeile an ihre richtige 
Stelle. Probieren Sie es doch einmal! 

Zum Glück müssen wir uns bei der Frage, welche Zeile wir eingegeben 
haben, nicht auf unser Gedächtnis verlassen. Mit dem LIST-Befehl wird 
das Programm auf dem Bildschirm ausgegeben. Geben Sie jetzt LIST ein 
und drücken Sie die RETURN-Taste: 

LIST 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

20 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 

30 PRINT "DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!!" 

READY. 

Diese drei Zeilen können wir noch bequem auf dem Bildschirm darstellen. 
Was geschieht aber, wenn wir ein langes Programm listen wollen? 

Für den LIST-Befehl gibt es einige Zusatzangaben, die dafür sorgen, daß 
nur ein Teil des Programms gelistet wird. Versuchen Sie folgendes: 

LIST 10 ' 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

READY. 

Steht hinter LIST eine Zeilennummer, so wird nur die betreffende Zeile 
ausgegeben. Im folgenden Beispiel werden alle Zeilen zwischen 10 und 20 
gelistet: 

LIST 10-20 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

20 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 


READY. 



1 Einführung 


31 


Die Anweisung 
LIST -20 

hätte in diesem Fall die gleiche Wirkung, denn sie listet alle Programm¬ 
zeilen mit den Nummern bis einschließlich 20. Andererseits besteht auch 
die Möglichkeit, von einer Zeilennummer bis zum Programmende zu listen, 
wie im folgenden Beispiel: 

LIST 20- 

20 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 

30 PRINT "DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!!" 

READY. 

Falls Sie einen Drucker besitzen, können Sie das Listing auch ausdrucken. 
Schalten Sie den Drucker ein und geben Sie folgende Anweisungen ein, die 
jeweils mit RETURN abzuschließen sind: 

OPEN 1,4 
CMD 1 
LIST 
PRINT# 1 
CLOSE 1 

Ein Verständnis der einzelnen Anweisungen ist an dieser Stelle noch nicht 
notwendig, denn die Bedienung der Peripheriegeräte wie Drucker, Floppy 
etc. wird erst an späterer Stelle behandelt. Für diejenigen unter Ihnen, die 
sich darin bereits auskennen, hier eine Kurzbeschreibung: 

OPEN 1,4 öffnet den Ausgabekanal zum Drucker (Geräteadresse 4) über 
die logische Filenummer 1, CMD 1 leitet die Bildschirmausgabe auf den 
Drucker, um und LIST listet das Programm, wobei auch die obengenannten 
Zusatzangaben über einzelne Programmteile enthalten sein können. 
PRINT# 1 dirigiert die Ausgabe wieder auf den Bildschirm und CLOSE 1 
schließt das logische File 1. 

BASIC-Versionen anderer Computer haben für diese Prozedur den ein¬ 
fachen Befehl LLIST, der aber im BASIC 7.0, wie auch schon in den frü¬ 
heren BASIC-Versionen von Commodore, leider nicht enthalten ist. 
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Jetzt wollen wir unser Programm durch Hinzufügen der Zeilen 15 und 40 
noch etwas erweitern. Die Reihenfolge wurde dabei absichtlich vertauscht. 

40 PRINT "DAS ZEIGT IHNEN DIESES MARKT&TECHNIK- 
BUCH." 

15 PRINT "-DER NEUESTE COMPUTER VON COMMODORE-" 

Wenn Sie jetzt LIST eingeben, sind die Programmzeilen in der richtigen 
Reihenfolge aufgeführt, in der sie auch abgearbeitet werden: 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

15 PRINT "-DER NEUESTE COMPUTER VON COMMODORE-" 

20 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 

30 PRINT "DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!!" 

40 PRINT "DAS ZEIGT IHNEN DIESES MARKT&TECHNIK- 
BUCH." 

Auf die Ausführung dieses Programms wollen wir hier verzichten, da wir 
ja wissen, in welcher Reihenfolge der Text erscheint. Das einzige, was am 
optischen Erscheinungsbild stört, ist die Zeile 15. Mit dem RENUMBER- 
Befehl werden die Zeilen in Zehnerschritten neu durchnumeriert. Geben 
Sie jetzt 

RENUMBER 


ein und listen Sie das Programm nochmals: 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128" 

20 PRINT "-DER NEUESTE COMPUTER VON COMMODORE-" 
30 PRINT "UND BRINGE IHNEN GROSSE NEUIGKEITEN," 

40 PRINT "DENN MEIN BASIC 7.0 IST EINFACH SPITZE!!!" 

50 PRINT "DAS ZEIGT IHNEN DIESES MARKT&TECHNIK- 
BUCH." 
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RENUMBER ohne Zusatz numeriert das Programm also in Zehnerschritten, 
beginnend mit Zeilennummer 10, durch. Soll z.B. die erste Zeilennummer 
nicht 10, sondern 100 lauten, geben Sie 

RENUMBER 100 

ein. Wünschen Sie darüber hinaus eine Schrittweite von 20, lautet die An¬ 
weisung 

RENUMBER 100,20 

Wenn wir eine neue Programmzeile mit einer Nummer eingeben, die bereits 
existiert, ersetzt die neue Zeile die alte. Geben Sie dagegen nur eine Zei¬ 
lennummer ein und drücken RETURN, wird die betreffende Zeile im Pro¬ 
gramm gelöscht, falls sie bereits existiert. 

Wenn wir z.B. in unserem neu durchnumerierten Programm die Zeilen 20 
bis 40 löschen möchten, geben wir 

20 <RETURN> 

30 <RETURN> 

40 <RETURN> 

ein. Mit der DELETE-Anweisung können wir uns die Arbeit etwas erleich¬ 
tern, da sie es ermöglicht, mehrere Zeilen gleichzeitig zu löschen. Wenn Sie 
jetzt eingeben 

DELETE 20-40 

werden die Zeilen 20 bis 40 gleichzeitig gelöscht. 

Die Anweisung 

DELETE 30- 

löscht alle Zeilen von Nummer 30 bis Programmende und die Anweisung 
DELETE -40 

löscht alle Zeilen vom Programmanfang bis einschließlich Zeile 40. 
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Eine weitere Programmierhilfe ist die automatische Zeilennumerierung, die 
mit der AUTO-Anweisung eingeschaltet wird. Die Anweisung 

AUTO 10 

schaltet die Schrittweite, die beliebig groß gewählt werden kann, auf 10. 
Die erste Zeile müssen Sie daraufhin normals mit Zeilennummer eingeben. 
Nach Drücken der RETURN-Taste erscheint die nächste Zeilennummer. 
Der Cursor steht bereits an der richtigen Stelle, so daß Sie nur noch den 
Programmtext eingeben und wieder RETURN drücken müssen usw. Wurde 
das Programm fertig eingegeben, geben Sie 

AUTO 

(ohne Zusatz) ein, und die automatische Zeilennumerierung ist wieder 
abgeschaltet. 


1.6 Fehlerkorrektur 

Wahrscheinlich fragen Sie sich jetzt, was zu tun ist, wenn Sie beim Eintip¬ 
pen einen Fehler gemacht haben. Eine Möglichkeit besteht darin, die feh¬ 
lerhafte Zeile neu einzugeben und zu überschreiben. Dies ist allerdings eine 
sehr umständliche Methode, besonders wenn es darum geht, nur ein Zei¬ 
chen auszubessern. 

Zunächst einmal holen Sie sich mit LIST (Zeilennummer) die betreffende 
Zeile auf den Bildschirm. Und hier beginnt nun das eingangs erwähnte be¬ 
queme Editieren, das längst nicht bei allen Computeren üblich ist. 

In der obersten Tastaturreihe des PC 128 befinden sich vier Tasten mit 
Pfeilen, von denen jeder in eine andere Richtung zeigt. Die Pfeilrichtung 
entspricht der Bewegung des Cursors auf dem Bildschirm, weshalb diese 
Tasten auch Cursorsteuertasten heißen. Mit Hilfe dieser Tasten fahren Sie 
nun den Cursor an die fehlerhafte Stelle, korrigieren diese und drücken an¬ 
schließend die RETURN-Taste. Das ist alles! 

Hier nun ein paar Beispiele. Angenommen, die fehlerhafte Zeile lautet 


10 PRINT "CONPUTER' 
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Um das N durch ein M zu ersetzen, überschreiben Sie lediglich das falsche 
Zeichen und drücken anschließend RETURN. Anders ist es im folgenden 
Fall: 


10 PRINT "COPUTER" 

Hier fehlt das M und muß nachträglich eingesetzt werden. Dazu setzen wir 
den Cursor auf das P und drücken die INS-/DEL-Taste gleichzeitig mit 
SHIFT. Das P und alle nachfolgenden Zeichen werden um eine Stelle nach 
rechts verschoben und der Cursor zeigt auf die dadurch geschaffene freie 
Stelle. Hier setzen wir dann das M ein und drücken RETURN. Bei 

10 PRINT "COMPUUUUTER" 

liegt der Fall genau umgekehrt. Wir plazieren den Cursor auf dem T, 
drücken dreimal die DEL-Taste und schließlich RETURN. 

Trotz seiner Einfachheit hat das Editieren noch einen kleinen Haken. 
Haben Sie nämlich einmal ein Anführungszeichen gesetzt und arbeiten dann 
mit den Editiertasten, erscheinen solange eigenartige inverse Zeichen auf 
dem Bildschirm, bis Sie ein weiteres Mal ein Anführungszeichen setzen. In 
einem solchen Fall drücken Sie einfach die RETURN-Taste und beginnen 
mit der Korrektur von vorne. 

Übrigens haben die eben genannten reversen Zeichen durchaus einen Sinn; 
sie dienen nämlich der programmgesteuerten Cursorpositionierung. Soll der 
Cursor z.B. um drei Zeilen nach oben wandern, geben Sie in einem Pro¬ 
gramm 

PRINT "<3 x CRSR UP>" 

ein. "<3 x CRSR UP>" bedeutet hier, daß hinter dem Anführungszeichen 
dreimal die Cursortaste mit dem Pfeil nach oben zu drücken und anschlies¬ 
send ein weiteres Anführungszeichen zu setzen ist. Diese Schreibweise ist 
allerdings ein Notbehelf, dessen wir uns in diesem Buch bedienen, da die 
reversen Zeichen nur auf dem Bildschirm, nicht aber im Buchdruck zur 
Verfügung stehen. Geben Sie jedesmal, wenn Sie in diesem Buch eine sol¬ 
che Anweisung finden, die entsprechenden Tasten ein. 
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Die bisher betrachteten Fehler bezogen sich immer nur auf den Text, der 
ausgegeben werden sollte. Dabei interessiert es den Computer nicht, ob er 
richtig oder falsch geschrieben ist. Anders ist es dagegen bei Angaben, die 
der Computer nicht als Befehl interpretieren kann, wie etwa den Schlüssel¬ 
wörtern. Hier ein Beispiel: 

PRIT "ICH BIN DER PC 128” 

7SYNTAX ERROR 

READY. 

Der Computer kennt nur das Wort PRINT als Befehl, nicht aber das Wort 
PRIT und meldet deshalb einen SYNTAX ERROR. Diese Fehlermeldung 
tritt also immer dann auf, wenn der Computer einen Befehl nicht klar er¬ 
kennt. Dies gilt sowohl für den Programm- als auch für den Direktmodus. 
Im Programmodus erscheint zusätzlich noch die Nummer der Zeile, in der 
der Fehler auf trat, so daß dieser leicht aufzufinden und zu korrigieren ist. 


1.7 Programme sichern und laden 

Haben wir im Arbeitsspeicher ein BASIC-Programm stehen und schalten 
den Computer aus, so geht das Programm verloren. Um dies zu verhindern, 
können wir es auf Kassette oder Diskette abspeichern und bei Bedarf 
wieder laden. 

Beginnen wir mit der Kassette. Schließen Sie Ihre Datasette an und legen 
Sie eine leere Kassette ein, um ein Programm unter dem Namen "TEST" 
abzuspeichern. Geben Sie nun 

SAVE "TEST" 

ein. Daraufhin erscheint die Meldung 

PRESS PLAY & RECORD ON TAPE 

auf dem Bildschirm. Wenn Sie jetzt die RECORD- und PLAY-Taste am 
Recorder gleichzeitig betätigen, beginnt das Band zu laufen. Erscheint 
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READY, ist der Speichervorgang abgeschlossen. Drücken Sie jetzt die 
STOP-/EJECT-Taste, können Sie die Kassette herausnehmen. Zuvor ist es 
jedoch ratsam, sie zurückzuspulen. 

Um das Programm wieder in den Arbeitsspeicher zu laden, legen Sie die 
zurückgespulte Kassette mit dem gesicherten Programm "TEST" in die 
Datasette und geben 

LOAD "TEST" 

ein. Der Computer gibt daraufhin die Meldung 
PRESS PLAY ON TAPE 

aus. Jetzt drücken Sie die PLAY-Taste - auf keinen Fall jedoch die 
RECORD-Taste! - bis das Programm geladen ist und READY erscheint. An 
der Datasette befindet sich ein Zählwerk, das Sie unbedingt benutzen 
sollten, wenn Sie mehrere Programme hintereinander abspeichern. Es gibt 
hier nämlich keinen Schutz vor versehentlichem Überschreiben. 

LOAD und SAYE funktionieren bei Kassettenbetrieb auch ohne Angabe 
eines Programmnamens; LOAD liest dann automatisch das nächstfolgende 
Programm ein. Befinden sich mehrere Programme auf einer Kassette, em¬ 
pfiehlt es sich jedoch, Namen zu verwenden. Bei LOAD "Name" läuft das 
Band dann solange, bis ein Programm mit dem entsprechenden Namen auf- 
gefunden wird. 

Bei Verwendung eines Diskettenlaufwerks ist der Vorgang ähnlich zu hand¬ 
haben. Sie benötigen dazu entweder eine formatierte Diskette, auf der noch 
genügend Platz für Ihr Programm vorhanden ist, oder müssen eine Diskette 
neu formatieren. Achtung! Verwenden Sie dazu nur solche Disketten, die 
entweder fabrikneu sind oder solche, auf deren Inhalt Sie unbedingt ver¬ 
zichten können. In der Regel ist jede Aufzeichnung, die sich bereits auf 
einer Diskette befindet, nach dem Neuformatieren hoffnungslos verloren. 
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Im Gegensatz zum Band erhält jede Diskette einen Namen und eine Identi¬ 
fikationsbezeichnung (ID), die beide beim Formatieren angegeben werden 
müssen. Als Beispiel nehmen wir an, der Name sei "PROGRAMME" und 
die ID sei 01. Um eine Diskette zu formatieren, legen Sie sie ins Laufwerk 
und geben 

HEADER "PROGRAMME",D0,I01 

ein. Es erscheint daraufhin die Meldung 

ARE YOU SURE? (Sind Sie sicher?) 

Geben Sie nun Y (ja) oder N (nein) ein. Dies ist eine ins Programm einge¬ 
baute letzte Sicherheit, um Sie vor einem unbeabsichtigten Löschen der 
Diskette zu bewahren. Antworten Sie mit Y, dreht sich das Laufwerk etwa 
eine Minute lang, während die Diskette formatiert wird. Danach ist sie für 
den Einsatz auf dem PC 128 vorbereitet und sie können damit die folgen¬ 
den Beispiele ausprobieren. 

Auch das Abspeichern von Programmen ist ganz einfach; wir benötigen da¬ 
zu nur die Anweisung DSAVE. Angenommen, wir verwenden wieder den 
Namen "TEST", vorausgesetzt, es findet sich kein anderes Programm mit 
gleichem Namen auf der Diskette, dann geben wir ein: 

DSAVE "TEST" 

Daraufhin wird das Programm auf Diskette geschrieben. Das Laden ist 
ebenso einfach; wir benötigen dazu die Anweisung DLOAD. Wenn Sie ein¬ 
geben 


DLOAD "TEST" 

befindet sich das Programm wieder im Arbeitsspeicher und Sie können es 
normal mit RUN ausführen. Es besteht aber auch die Möglichkeit, es mit 
einem Befehl zu laden und gleich zu starten. Einen solchen Autostart gibt 
man folgendermaßen ein 


RUN "TEST' 
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Jede Diskette enthält außerdem ein Inhaltsverzeichnis, in dem alle Pro¬ 
gramme und sonstige Dateien auf geführt sind. Sie können es mit 

DIRECTORY 

auf dem Bildschirm ausgeben. Ein BASIC-Programm, das sich vielleicht ge¬ 
rade im Arbeitsspeicher befindlichet, wird dabei nicht zerstört. Überflüs¬ 
sige Dateien können Sie mit dem Befehl 

SCRATCH "Name" 

löschen, wobei "Name" für den betreffenden Dateinamen steht. Auch hier 
erfolgt zunächst wieder die Sicherheitsabfrage 

ARE YOU SURE? 

bevor der eigentliche Löschvorgang beginnt. Manchmal ist es vorteilhaft, 
einen Dateinamen umzubenennen. Dies geschieht mit dem Befehl 

RENAME "Alter Name" TO "Neuer Name" 

Soll z.B. unsere Datei "TEST" in "PROBE" umbenannt werden, geben Sie ein 

RENAME "TEST" TO "PROBE" 

Sie haben jetzt die wichtigsten Disketten- und Kassettenoperationen ken¬ 
nengelernt, die Sie zum Abspeichern und Laden von BASIC-Programmen 
benötigen. Wir werden uns jedoch im weiteren Verlauf dieses Buches noch 
mit anderen Befehlen zur Verwaltung von sequentiellen und relativen 
Dateien befassen. 
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2 Grundzüge der BASIC-Programmierung 


Im letzten Kapitel haben wir uns mit den einfachsten Grundbegriffen für 
den Aufbau von BASIC-Programmen beschäftigt. Sie wissen jetzt, was die 
Programmiersprache BASIC ist, können im Direkt- und im Programmodus 
einfache Meldungen ausgeben und haben einige nützliche Hilfsmittel zur 
Erstellung, Korrektur und Sicherung von Programmen kennengelernt. In 
diesem Kapitel erfahren Sie nähere Einzelheiten über Datentypen, Varia¬ 
blen und die wichtigsten Ein- und Ausgabeoperationen und lernen, damit 
umzugehen. 


2.1 Datentypen 

Der Computer kann eine Vielzahl von Daten verarbeiten, vorausgesetzt, er 
kennt alle dazu erforderlichen Informationen. Diese können entweder im 
BASIC-Programm selbst oder auf einem Datenträger (z.B. Kassette oder 
Diskette) vorgegeben sein. 

Der Begriff "Daten" ist sehr umfassend. Wenn Sie beispielsweise das Tele¬ 
fonbuch aufschlagen, finden Sie darin die Daten sämtlicher Fernsprechteil¬ 
nehmer, d.h. Nach- und Vorname, Straße und Hausnummer und natürlich 
die Rufnummer. Darüberhinaus sind die Teilnehmer in alphabetischer Rei¬ 
henfolge geordnet, damit Sie sie leicht auffinden können. 
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Ein ähnliches Verzeichnis, wie es das Telefonbuch darstellt, können Sie 
durchaus auch in Ihrem Computer speichern und verarbeiten, selbst wenn 
es nur die Adressen und Telefonnummern Ihrer Freunde und Bekannten 
enthält. Eine solche Ansammlung verschiedener Daten, gleich welcher Art, 
bezeichnet man als Datei. 

Wenn Sie Ihren Computer im Privatbereich nutzen wollen, können Sie sich 
z.B. ein Programm schreiben, das Ihr Haushaltsgeld verwaltet und die Ein¬ 
nahmen, Ausgaben usw. in einer Datei ablegt; oder ein Programm, das Ihre 
Schallplattensammlung registriert oder die Autokosten auflistet. Im profes¬ 
sionellen Bereich laufen heutzutage Buchhaltung und Lagerhaltung meist 
über die elektronische Datenverarbeitung mit teilweise riesigen Dateien, die 
auch als Datenbanken bezeichnet werden. 

Auf die eigentliche Dateiverwaltung werden wir später noch zu sprechen 
kommen. Im Augenblick geht es nur darum, welche Art von Daten oder 
Datentypen Ihr Computer verarbeiten kann. 


2.1.1 Strings 

Bereits im letzten Kapitel haben wir mit Zeichenketten gearbeitet, die man 
in der Fachsprache als Strings bezeichnet. Die Anweisung 

PRINT "GUTEN TAG, ICH BIN DER PC 128" 

gibt beispielsweise den String 

GUTEN TAG, ICH BIN DER PC 128 

auf dem Bildschirm aus, was durch das Befehls- oder BASIC-Schlüsselwort 
PRINT ausgelöst wird. Hier einige weitere Beispiele für Strings: 

"HANS SCHMIDT" 

"AUGUSTENSTRASSE 48" 

"VIELE GRUESSE VOM COMPUTER" 

"PFEFFER" 

"TOMATEN" 

"123.456" 
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Strings sind in der Regel eine Aneinanderreihung von Buchstaben, Satz¬ 
zeichen und Ziffern, wie Sie sie auf einer Schreibmaschine tippen. Damit 
der Computer erkennt, wo der String beginnt und wo er endet, ist er in 
Anführungszeichen eingeschlossen. Aus diesem Grund dürfen in einem 
String selbst keine Anführungszeichen auftreten. Soll ein Wort besonders 
hervorgehoben werden, verwendet man statt dessen meist den Apostroph. 

Hier ein Beispiel: 

Falsch: 

"SIE SAGTE: "MEIN NAME IST HASE, ICH WEISS VON NICHTS"." 
Richtig: 

"SIE SAGTE: 'MEIN NAME IST HASE, ICH WEISS VON NICHTS.’" 

Als wir im letzten Kapitel lernten, Programme abzuspeichern und zu laden, 
haben wir bereits mit Strings gearbeitet. So ist beispielsweise in der Anwei¬ 
sung 


DLOAD "TEST" 

der Programmname "TEST" ein String. Er wird von dem Schlüsselwort 
DLOAD benötigt, um das richtige Programm unter dem Namen TEST von 
Diskette zu laden. 

Aus programmiertechnischen Gründen verwendet man manchmal auch 
Strings, die keine Zeichen oder nur Leerzeichen (Blanks) enthalten. Z.B. ist 


ein Nullstring, weil er keine Zeichen enthält und 

tt tt 


ist ein Leerstring mit 14 Blanks, der nur an den Anführungszeichen zu er¬ 
kennen ist. 
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Jedes Zeichen, das in einem String dargestellt werden kann, besitzt einen 
entsprechenden Zahlencode, der im Computer gespeichert ist. Dieser Code 
ist genormt und heißt ASCII-Code. So entspricht z.B. der Buchstabe A dem 
ASCII-Code 65, der Buchstabe B dem ASCII-Code 66 usw. (Siehe dazu 
auch ASCII-Code-Tabelle im Anhang!) 

Entdeckt nun der Computer hinter dem Schlüsselwort PRINT ein Anfüh¬ 
rungszeichen, so weiß er, daß er einen String auf dem Bildschirm ausgeben 
soll. Ist der Wert in der nächsten Speicherzelle (Byte) eine 65, gibt er folg¬ 
lich den Buchstaben A aus. 

Fast alle Computer arbeiten heute mit dem ASCII-Code. Dies hat den Vor¬ 
teil, daß sie Daten untereinander austauschen können. 


2.1.2 Fließkommazahlen 

Fließkommazahlen sind neben den Strings ein Datentyp, mit dem der Com¬ 
puter echt "rechnen", d.h. mathematische Operationen durchführen kann. 
Fließkommazahlen werden deshalb vom Computer in einer anderen Form 
intern verwaltet als Strings. 

Vielleicht fragen Sie sich, warum unter den Beispielen für Strings auch 
"123.456" aufgeführt ist. Zwar ist der Inhalt dieses Strings offensichtlich ein 
Zahlenwert, der Computer betrachtet ihn aber nicht als Zahl, da er in An¬ 
führungszeichen eingeschlossen ist. Dieser String enthält lediglich die 
äquivalenten ASCII-Zeichen für 1, 2, 3, 4, 5 und 6. In diesem Format ist 
der Computer nicht in der Lage, arithmetische Berechnungen durchzu¬ 
führen. 

Geben wir also 123.456 ohne Anführungszeichen ein, so wird dieser Wert 
als Zahl betrachtet und intern in einem speziellen Binärformat verwaltet. 
Zahlen im Sinne des Computers dürfen nur aus den Ziffern 0 bis 9 und 
eventuell einem Vorzeichen und einem Dezimalpunkt (kein Komma!) be¬ 
stehen. Sehr große und sehr kleine Zahlen werden in Exponentialschreib- 
weise angegeben, wobei der Wert durch ein großes E mit einem zweistel¬ 
ligen Zehnerexponenten abgeschlossen wird. Hier einige Beispiele für zuläs¬ 
sige Zahlenwerte: 
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1.5 

652 

-1546.98006 

.044736524 

1.54E+21 

5.987543E-07 


Unzulässig dagegen sind z.B.: 


7,52 

-65,765,879.8 

34.652,87 

3.43- 


richtig: 7.52 

richtig: -65765879.8 

richtig: 34652.87 

richtig: -3.43 


Ebenso wie Strings, können mit PRINT auch Zahlen auf dem Bildschirm 
ausgegeben werden: 


PRINT 45.789 
45.789 


READY. 


oder 


PRINT -27 
-27 


READY. 

Der PC 128 stellt Fließkommazahlen in einem möglichst optimalen Format 
dar. Deshalb werden Werte größer gleich 9000000000 und kleiner als .01 in 
Exponentialschreibweise ausgegeben, wie z.B. 

PRINT 1356789776655443 
1.35678978E+15 

READY. 


oder 


PRINT 0.0000552 
5.52E-05 


READY. 
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Der PC 128 kann nur Zahlenwerte mit maximal 9 signifikanten Ziffern 
verarbeiten. Größere Zahlen werden auf insgesamt neun Ziffern gerundet. 
Beachten Sie auch, daß der zulässige Wertebereich nur zwischen ca. 1E-39 
und 1E+38 liegt. Kleinere Werte werden als 0 wiedergegeben, bei größeren 
erfolgt eine Überlauf-Fehlermeldung, wie im folgenden Beispiel: 

PRINT 1E+90 

?OYERFLOW ERROR 

READY. 


2.1.3 Integerzahlen 

Neben den Fließkommazahlen gibt es noch die Integerzahlen. Sie dürfen 
nur ganzzahlige Werte im Bereich zwischen -32768 und +32767 enthalten. 

Integerzahlen benötigen weniger Speicherplatz als Fließkommazahlen. Bei 
Commodore-Rechnern haben sie, abgesehen von Feldern (Arrays) mit ge¬ 
ringerem Speicherbedarf, nur eine untergeordnete Bedeutung. Ansonsten 
belegen sie genausoviel Speicherplatz wie eine Fließkommazahl, von dem 
allerdings ein Teil unbenutzt bleibt. Auch die Rechenzeit mit Integerzahlen 
ist, im Gegensatz zu anderen Rechnern, bei Commodore etwa gleich groß 
wie die mit Fließkommazahlen, was im Betriebssystem begründet ist. Des¬ 
halb wollen wir uns an dieser Stelle nicht näher mit Integerzahlen befassen. 


2.2 Rechnen mit BASIC 

In BASIC ist das Rechnen mit Zahlen sehr einfach. Die Eingabe erfolgt in 
ähnlicher Form wie in der Algebra, wie wir es aus der Schule kennen. 

Mit PRINT können wir auch arithmetische Ausdrücke, wie z.B. 4 + 9 oder 
65-3 auswerten. Das Zeichen, das die betreffende Operation angibt, heißt 
Operator. In diesem Fall dient der Operator + zur Addition und der Ope¬ 
rator / zur Division. Die Werte, mit denen die Operation stattfinden soll, 
heißen Operanden. Das Ergebnis, das man durch Ausführung der Operation 
enthält, bezeichnet man als Wert der Operation. 
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Entdeckt nun der Computer hinter einer PRINT-Anweisung eine arithmeti¬ 
sche Operation, so führt er sie aus und gibt deren Wert, also das Ergebnis, 
auf dem Bildschirm aus. Hier einige Beispiele: 

PRINT 3 + 4 
7 

READY. 

PRINT 100-2 
98 

READY. 

PRINT -10/3 
-3.33333333 

READY. 

PRINT 45 * 5 
225 

READY. 

Der Vollständigkeit halber wollen wir uns hier auch kurz mit den wissen¬ 
schaftlichen Funktionen befassen. Beginnen wir mit der Exponentiation: 

PRINT 3 A 2 
9 

READY. 

In diesem einfachen Fall wären wir auch mit einer Multiplikation von 3*3 
zum gleichen Ergebnis gekommen. Wir sind aber nicht nur auf geradzahlige 
Exponenten beschränkt, wie das folgende Beispiel zeigt: 

PRINT 45 A 1.63 
495.14956 

READY. 

Beachten Sie, daß das Potenzierzeichen " A " dem senkrecht nach oben 
gerichteten Pfeil auf der Tastatur entspricht. 
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Umgekehrt können wir mit SQR auch die Quadratwurzel ziehen: 

PRINT SQR(2) 

1.41421356 

READY. 

Folgende Exponentiation führt zum gleichen Ergebnis, da die Quadratwur¬ 
zel einem Exponenten von 0.5 entspricht: 

PRINT 2 A .5 
1.41421356 


READY. 


Hier noch ein kurzer Überblick über die trigonometrischen und logarithmi- 
schen Funktionen. X steht dabei jeweils für das Argument. 


SIN(X) 

COS(X) 

TAN(X) 

ATN(X) 

EXP(X) 

LOG(X) 


Sinus 

Cosinus 

Tangens 

Arcustangens 

Potenz zur Zahl e 

natürlicher Logarithmus 


Zu bemerken ist noch, daß die Winkel für trigonometrische Berechnungen 
immer im Bogenmaß angegeben werden müssen! Beispiel: Es ist der Sinus¬ 
wert für einen Winkel von 45 Grad zu berechnen. Da die Sinusfunktion nur 
Winkel im Bogenmaß verarbeitet, muß der Winkel zunächst vom Gradmaß 
ins Bogenmaß umgerechnet werden: 

45 Grad = 45 * Pi / 180 (Bogenmaß) = .785398163 
Dann folgt 

PRINT SIN(.785398163) 

.707106781 


READY. 


Pi steht hier Für die Zahl 3.14159265, die auf Ihrem Rechner auch per 
Tastendruck abrufbar ist. 
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In BASIC können Sie auch arithmetische Ausdrücke berechnen, die mehrere 
Operationen erfordern: 

PRINT 3 + 4 + 19-10 
16 

READY. 


und 


PRINT 7 + 2*9 - 6/3 
23 

READY. 

Die Berechnungen werden von links nach rechts durchgeführt, wobei fol¬ 
gende Prioritäten zu beachten sind, die wir auch in der Algebra vorfinden: 

+ und - Addition und Subtraktion (niedrigste Priorität) 

* und / Multiplikation und Division 

A Potenzierung (höchste Priorität) 

Für unser letztes Beispiel bedeutet das, daß zur Zahl 7 das Produkt von 2*9 
= 18 addiert wird. Von diesem Ergebnis wird dann der Quotient 6/3 = 2 
subtrahiert; das führt zum Endergebnis von 23. 

BASIC kann auch Klammerrechnungen ausführen, mit denen die Prioritäten 
umgangen werden können. Dabei wird jeweils der Klammerinhalt vorrangig 
ausgewertet. 

Wir wollen uns nochmals das letzte Beispiel ansehen, jetzt aber etwas um¬ 
geformt: 

PRINT (7+2) * (9-6) / 3 
9 

READY. 

Hier werden zunächst die beiden Klammerinhalte 9 bzw. 3 miteinander 
multipliziert und dann das Produkt durch 3 dividiert. 



50 


2 Grundzüge der BAS IC-Programmierung 


Aber auch unsere Sinusberechnung (s.o.) können wir vereinfachen, ohne 
erst das Bogenmaß von 45 Grad separat berechnen zu müssen. Für das 
Argumant X kann nämlich auch ein arithmetischer Ausdruck stehen: 

PRINT SIN (45 * 3.14159265 / 180) 

.707106781 

READY. 

Vor der Berechnung des eigentlichen Sinuswertes wird also zunächst der 
Klammerinhalt als dessen Argument ausgewertet, d.h,Gradmaß in Winkel¬ 
maß umgerechnet. 


2.3 Weitere Möglichkeiten mit PRINT 

Bisher haben wir mit PRINT einen String oder eine Zahl auf dem Bild¬ 
schirm ausgegeben und schließlich die Auswertung eines arithmetischen 
Ausdrucks mit eingeschlossen. Darüberhinaus kann man aber mit PRINT 
noch einige nützliche Ausgabetechniken realisieren. 

Bei den besprochenen Beispielen gab jede PRINT-Anweisung immer nur 
einen Wert aus. Es besteht jedoch auch die Möglichkeit, den Inhalt 
mehrerer Strings in einer Bildschirmzeile darzustellen. Um dies zu demon¬ 
strieren, schreiben wir am besten ein kleines BASIC-Programm: 

10 PRINT "ZU" 

20 PRINT "SAM" 

30 PRINT "MEN" 

Nachdem Sie dieses Programm mit RUN gestartet haben, erscheinen die 
drei Strings in der uns bereits bekannten Form: 

ZU 

SAM 

MEN 


READY. 
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Jetzt ändern wir das Programm geringfügig ab, indem wir Zeile 10 und 20 
mit einem Semikolon abschließen: 

10 PRINT "ZU"; 

20 PRINT "SAM"; 

30 PRINT "MEN" 

Nach Ausführung dieses Programms erhalten wir als Bidschirmausgabe: 

ZUSAMMEN 

READY. 

Wir sehen also, daß verschiedene Strings aus verschiedenen PRINT-Anwei- 
sungen aneinandergefügt werden, wenn sie jeweils mit einem Semikolon 
abschließen. Das gleiche Resultat können wir noch einfacher erhalten: 

PRINT "ZU";"SAM";"MEN" 

ZUSAMMEN 

READY. 

Hier stehen die einzelnen Strings in einer PRINT-Anweisung, wobei sie je¬ 
weils durch Semikolons getrennt sind. 

Ihr PC 128 bietet außerdem die Möglichkeit der festen Tabellierung, wobei 
die Werte im Abstand von jeweils 10 Zeichen beginnen. 

Zu diesem Zweck müssen sie durch Kommas getrennt sein: 

PRINT "AUS","EIN","AN","DER" 

AUS EIN AN DER 

READY. 

Ein Tabellator mit variablen Abständen steht mit der TAB-Anweisung zur 
Verfügung: 

PRINT TAB(3)"ABC";TAB(20)"DEF" 

ABC DEF 


READY. 
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Der Klammerwert innerhalb der TAB-Anweisung gibt die jeweilge Position 
in der Zeile an, beginnend mit Position 0 am linken Rand. Im diesem Bei¬ 
spiel beginnt der erste String bei Position 3 und der zweite bei Position 20. 
Sämtliche PRINT-Anweisungen gelten auch für Zahlen vom Datentyp 
Fließkomma oder Integer bzw. für Werte von berechneten Ausdrücken, wie 
wir sie bereits kennengelernt haben. Bei positiven Werten wird statt des 
Vorzeichens immer ein Leerzeichen freigelassen: 

PRINT 5,-4,3 
5-4 3 

READY. 

Steht zwischen den Zahlen allerdings ein Semikolon, so bleibt ein zusätz¬ 
liches Leerzeichen frei, um die Übersichtlichkeit zu erhöhen: 

PRINT 5;-4;3 
5-4 3 

READY. 

Abschließend noch ein Programm, das für verschiedene Schüler den Namen 
zusammen mit der Punktzahl und der Note einer Klassenarbeit ausgibt: 

10 PRINT "NAME","PUNKTE","NOTE" 

20 PRINT 

30 PRINT "HANS",45,3 
40 PRINT "NICOLE",40,4 
50 PRINT M STEFAN",50,2.7 
60 PRINT "CHRISTIAN",38,4.3 
70 PRINT "URSULA",60,2 

Nach Eingabe von RUN erscheint folgende Liste auf dem Bildschirm: 
NAME PUNKTE NOTE 


HANS 45 3 

NICOLE 40 4 

STEFAN 50 2.7 

CHRISTIAN 38 4.3 

URSULA 60 2 


READY. 
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2.4 Variablen 

Wir wissen bereits, daß der Computer einen RAM-Speicher besitzt, d.h. 
einen flüchtigen Speicher, dessen Inhalt sich ständig ändern kann und beim 
Ausschalten des Computers verloren geht. Ein Großteil des RAM-Speichers 
dient zur Ablage von BASIC-Programmen und allen dazugehörigen Infor¬ 
mationen. 

Weiter haben wir einige einfache Programme kennengelernt, die in nume¬ 
rierte BASIC-Zeilen aufgeteilt sind. Unsere Beispiele im Direkt- und im 
Programmodus behandelten bisher ausschließlich die Ausgabe von Strings 
auf dem Bildschirm und die Berechnung arithmetischer Ausdrücke. Die 
Werte, die zu berechnen bzw. auszugeben waren, standen unmittelbar hinter 
der PRINT-Anweisung. 

Auch kennen wir schon die verschiedenen Datentypen, nämlich Strings für 
Zeichenketten, Fließkommazahlen und Integerzahlen. 

Intern verwaltet der Computer jeden dieser Datentypen auf unterschiedliche 
Weise. So werden Strings in ASCII-Zeichen, Fließkommazahlen in einem 
Binärformat und Integerzahlen in einer kurzen Binärschreibweise abgelegt. 
Zu diesem Zweck muß der Computer für jeden einzelnen Wert einen Spei¬ 
cherbereich reservieren. 

Betrachten wir nun nochmals unser allererstes Beispiel, das wir dieses Mal 
allerdings im Programmodus schreiben wollen: 

10 PRINT "GUTEN TAG, ICH BIN DER PC 128” 

Wenn Sie diese Programmzeile eintippen und die RETURN-Taste drücken, 
ordnet der Computer ihr einen bestimmten Speicherplatz zu, in dem auch 
die auszugebende Meldung enthalten ist. Sofern wir den Text nicht ändern, 
erscheint jedesmal bei Ausführung von Zeile 10 die gleiche Meldung. Wenn 
wir den Text nun anstelle von einem Mal zehnmal hintereinander ausgeben 
wollen, brauchen wir ein Programm, das zehn Zeilen mit jeweils der glei¬ 
chen PRINT-Anweisung enthält. Dabei könnten die Zeilen z.B. von 10 bis 
100 in Zehnerschritten durchnumeriert werden, eine wahrhaftig umständ¬ 
liche Angelegenheit! 
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BASIC hat jedoch eine Möglichkeit, bei der wir den String nur einmal de¬ 
finieren müsssen und ihn mehrfach hintereinander mit einer wesentlich 
kürzeren Anweisung ausgeben können. Dazu ordnen wir den String einer 
Variablen zu, die dann nach Belieben aufgerufen werden kann: 

10 LET A$ = "GUTEN TAG, ICH BIN DER PC 128" 

20 PRINT A$ 

30 PRINT A$ 

40 PRINT A$ 

Wenn Sie dieses Programm ausführen, erscheint dreimal die gleiche Mel¬ 
dung auf dem Bildschirm. In Zeile 10 haben wir den Text in einer String¬ 
variablen mit dem Namen A$ abgelegt, was mit der Zuordnungsanweisung 
LET geschieht. Der Computer führt ein internes Verzeichnis, in dem genau 
angegeben ist, an welcher Stelle sich der Inhalt von A$ im Speicher be¬ 
findet und wieviele Zeichen der String umfaßt. Jedesmal, wenn nun bei der 
Abarbeitung des Programms A$ auf taucht, sucht der Computer diese Varia¬ 
ble im Verzeichnis und bearbeitet ihren Inhalt gemäß der entsprechenden 
Anweisung. In unserem Beispiel wird sie insgesamt dreimal durch PRINT 
aufgerufen und auf dem Bildschirm ausgegeben. 

Ähnlich wie bei der Zuweisung eines Strings zu einer Variablen kann auch 
bei numerischen Ausdrücken verfahren werden, wie das folgende Beispiel 
zeigt: 


10 LET A = 3 
20 LET B = 5 
30 LET C = A * B 
40 PRINT C 

Nach Ausführung dieses Programms erscheint als Ergebnis die Zahl 15 auf 
dem Bildschirm. Wie es dazu kommt, wollen wir nun einmal näher unter¬ 
suchen. 

In Zeile 10 erhält die Fließkommavariable A den Wert 3 und in Zeile 20 
die Fließkommavariable B den Wert 5. Beide Werte werden im internen 
Zahlenformat im Speicher abgelegt und können mit Hilfe der Variablenna¬ 
men A bzw. B wieder aufgefunden werden. Dies geschieht in Zeile 30. Hier 
entsteht eine neue Variable C, nachdem die Inhalte der Variablen A und B 
miteinander multipliziert wurden. Diese Variable C enthält nun das Produkt 
aus A und B und hat ebenfalls einen festen Speicherbereich. Schließlich 
wird ihr Inhalt in Zeile 40 aufgerufen und auf dem Bildschirm ausgegeben. 
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In diesem Beispiel haben wir die Zuordnung eines Wertes zu einer Varia¬ 
blen mit LET durchgeführt. Diese Anweisung stammt noch aus der An¬ 
fangszeit von BASIC und ist bei modernen BASIC-Dialekten nicht mehr er¬ 
forderlich. Auch wir wollen die LET-Anweisung in diesem Buch nicht 
weiter verwenden und sie künftig einfach weglassen. Dann sieht unser Bei¬ 
spielprogramm folgendermaßen aus: 

10 A = 5 
20 B - 3 
30 C = A * B 
40 PRINT C 

Hier nun noch etwas zu den Variablennamen: Wir kennen bereits die drei 
Datentypen String, Fließkomma und Integer, von denen jeder einen be¬ 
stimmten Variablennamentyp besitzt. Wir wissen, daß Variablennamen für 
Strings immer mit einem $-Zeichen enden, das bei den Fließkommavaria¬ 
blen fehlt. Dies ist auch genau das Unterscheidungsmerkmal zwischen den 
beiden Typen. Namen für Integervariablen enden mit einem %-Zeichen. 
Hier nochmals eine Zusammenfassung: 

Variablentyp Merkmal 

String $ 

Fließkomma keines 

Integer % 

Jeder Variablenname des gleichen Typs darf in einem Programm nur einmal 
Vorkommen. Eine erneute Zuordnung mit einem anderen Wert ist jedoch 
möglich, wobei der alte Wert verlorengeht. Hier ein Beispiel: 


10 A = 2 
20 A = 100 
30 A = 3 * 5 
40 PRINT A 

In Zeile 10 erhält die Variable A den Wert 2 und in Zeile 20 den Wert 100, 
wobei der Wert 2 aus der Zuordnung in Zeile 10 verlorengeht. Das gleiche 
geschieht nochmals in Zeile 30, wo die Variable A das Produkt aus 3 und 
5, also 15 erhält. 
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Anders ist es, wenn der gleiche Variablenname in den verschiedenen Typen 
erscheint, wie z.B.: 

10 A = 6.78 
20 A% = 2 
30 A$ = "HALLO" 

40 PRINT A 
50 PRINT A% 

60 PRINT A$ 

Nach Ausführung des Programms erscheint: 

6.78 

2 

HALLO 

READY. 

Wir sehen also, daß der gleiche Variablenname unter den verschiedenen 
Typenbezeichnungen existieren kann. 

Bei der Wahl der Variablennamen ist außer der Typenbezeichnung noch 
folgendes zu beachten: Im Commodore-BASIC dürfen Variablennamen 
außer der Typenbezeichnung maximal zwei Zeichen umfassen, wobei der 
erste auf jeden Fall ein Buchstabe zwischen A und Z sein muß. Das zweite 
Zeichen ist nicht zwingend erforderlich und kann entweder ebenfalls aus 
einem Buchstaben oder aus den Ziffern 0 bis 9 bestehen. Hier ein paar Bei¬ 
spiele zulässiger Variablennamen: 

AB Zl$ CCS U7% 

TY$ B% ROS UA 

Zwar verarbeitet der Computer auch Variablennamen mit mehr als zwei 
Zeichen, dabei sind dann aber nur die ersten beiden Zeichen signifikant. 
Außerdem ist bei der Wahl eines längeren Variablennamens zu beachten, 
daß es keine Verwechslungen mit anderen Namen gibt, wie im folgenden 
Beispiel: 


10 LAGERS = "BESTAND 1 
20 LATTES = "BRETT" 



2 Grundzüge der BASIC-Programmierung 


57 


Beide Variablennamen beginnen mit LA. Da der Computer nur die beiden 
ersten Zeichen auswertet und die anderen Zeichen für ihn ohne Bedeutung 
sind, haben beide Ausdrücke den Variablennamen LA$. In diesem Pro¬ 
gramm würde der String BESTAND in Zeile 20 durch BRETT überschrie¬ 
ben werden. 

Sie sollten den Variablen möglichst sinnvolle Namen zuteilen, was gleich¬ 
zeitig der Übersichtlichkeit des Programms dient. Die Variationsmöglich¬ 
keiten sind allerdings, wie das obige Beispiel zeigt, im Commodore-BASIC 
auf nur zwei Zeichen beschränkt, will man keine Verwechslungen riskieren. 
Dies ist fraglos ein Nachteil, den viele andere BASIC-Versionen nicht 
haben, da sie teilweise 40 Zeichen lange Variablennamen zulassen. 

Einige Variablennamen auf Ihrem PC 128 sind bereits für bestimmte 
Zwecke reserviert und dürfen von Ihnen nicht für andere Zwecke verwen¬ 
det werden: 


TI und TI$ 

ST 

ER, EL und ERR$ 
DS, DS$ 

FN 


zur Abfrage der internen Uhr 

Statusvariable für I/O-Operationen 

zur Fehlerbehandlung 

zur Abfrage von Fehlern bei 

Diskettenoperationen 

zum Aufruf selbstdefinierter Funktionen 


Als weiteres sind auch Variablennamen unzulässig, die BASIC-Schlüssel- 
wörter enthalten, wie z.B: 


ABLOAD UPRINTS 


Achten Sie darauf, daß Daten- und Variablentyp übereinstimmen, d.h. daß 
Sie einer Stringvariablen keinen numerischen Wert zuweisen und umge¬ 
kehrt. Wäre dies der Fall, wie im folgenden Beispiel 


A$ = 5.25 


entsteht die Fehlermeldung 

?TYPE MISMATCH ERROR 
Die richtige Eingabe wäre gewesen: 


A = 5.25 
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2.5 Die INPUT-Anweisung 

Wir wissen bereits, daß wir Variablen bestimmte Werte zuordnen können. 
Bisher geschah dies durch Zuordnungsanweisungen mit oder ohne LET. 

Oft ist es jeoch erforderlich, während des Programmablaufs Werte anzufor¬ 
dern, die über die Tastatur eingegeben und dann einer Variablen zugeord¬ 
net werden. Dies geschieht mit der INPUT-Antweisung. Probieren Sie ein¬ 
mal das folgende kleine Programm aus: 


10 INPUT A 
20 PRINT A 

Wenn Sie dieses Programm mit RUN starten, erscheint auf dem Bildschirm 
ein Fragezeichen und dahinter der blinkende Cursor. 

Geben Sie jetzt eine beliebige Fließkommazahl ein und drücken Sie die 
RETURN-Taste wie im folgenden Beispiel: 

? 145 <RETURN> 

145 

READY. 

Hierbei fordert die INPUT-Anweisung in Zeile 10 eine Fließkommazahl 
an, die, nachdem sie eingegeben und durch RETURN abgeschlossen wurde, 
der Fließkommavariablen A zugeordnet wird. Zur Kontrolle steht die 
PRINT-Anweisung in Zeile 20, die die betreffende Zahl wieder auf dem 
Bildschirm ausgeben muß. 

INPUT ist nicht nur auf Fließkommawerte beschränkt, sondern funktioniert 
mit jedem Datentyp gleichermaßen. Hier einige weitere Beispiele: 

INPUT B% 

INPUT XY$ 

INPUT A, B$, C, DY 

Betrachten wir einmal das letzte Beispiel genau, bei dem insgesamt vier 
Werte für verschiedene Variablen angefordert werden: 
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10 INPUT A, B$, C, DY 
20 PRINT A 
30 PRINT B$ 

40 PRINT C 
50 PRINT DY 

RUN 

? 2,PRIMA,25,3.14 
2 

PRIMA 

25 

3.14 

READY. 

Hier werden nacheinander Werte für die Fließkommavariable A, die String¬ 
variable B$ sowie die Fließkommavariablen C und DY angefordert. Bei der 
Eingabe müssen sie durch Kommas getrennt werden, damit der BASIC-In¬ 
terpreter erkennt, wo sie beginnen und enden. 

Strings müssen in diesem Fall nicht unbedingt in Anführungszeichen einge¬ 
geben werden. Wenn Sie allerdings statt einem reinen Zahlenwert unzuläs¬ 
sige Zeichen, z.B. Buchstaben, eintippen, gibt der Computer 


7REDO FROM START 

? 

aus. Der erfaßte Wert wird ignoriert und das untere Fragezeichen fordert 
Sie erneut zur Eingabe auf. Diese Meldung erscheint auch, wenn Sie ver¬ 
sucht haben, eine Integerzahl außerhalb ihres zulässigen Bereiches (-32768 
bis 32767) einzugeben. 

Wenn nun während des Programmablaufs plötzlich ein Fragezeichen und 
der Cursor auftauchen, weiß der Benutzer zwar, daß er einen Wert ein¬ 
geben soll, er weiß jedoch häufig nicht, um welchen Wert es sich dabei 
handelt. BASIC sieht deshalb die Möglichkeit vor, daß vor der Anforderung 
zunächst ein Hinweis auf dem Bildschirm steht: 
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10 INPUT "BITTE BELIEBIGE ZAHL EINGEBEN"; Z 

20 PRINT "SIE HABEN SOEBEN DIE ZAHL"; Z; " EINGEGEBEN" 

RUN 

BITTE BELIEBIGE ZAHL EINGEBEN? 100 

SIE HABEN SOEBEN DIE ZAHL 100 EINGEGEBEN 

READY. 

Beachten Sie die PRINT-Anweisung in Zeile 20, in der das Programm ins¬ 
gesamt drei Werte ausgibt. Zunächst handelt es sich dabei um den String 
"SIE HABEN SOEBEN DIE ZAHL", dann um die eingegebene Zahl Z und 
schließlich um den zweiten String "EINGEGEBEN". 

Zum Schluß wollen wir noch ein kleines Programm betrachten, das das Vo¬ 
lumen eines Quaders berechnet. Dies geschieht nach der Formel 

Volumen = Länge * Breite * Höhe 

Wie wir bereits wissen, erkennt das BASIC 7.0 nur Variablennamen mit 
höchstens zwei Zeichen. Wir vereinbaren deshalb folgende Variablennamen: 

V für Volumen 
L für Länge 
B für Breite 
H für Höhe 

Hier nun das komplette Programm: 

10 REM VOLUMENBRECHNUNG 
20 INPUT "LAENGE"; L 
30 INPUT "BREITE"; B 
40 INPUT "HOEHE"; H 
50V = L*B*H 

60 PRINT "DAS VOLUMEN BETRAEGT"; V 

Dieses Programm enthält die REM-Anweisung. REM steht für engl. "Re¬ 
mark" oder Kommentar. Entdeckt der Computer eine REM-Anweisung, so 
übergeht er sie und ignoriert alle nachfolgenden Zeichen. REM-Zeilen 
dienen in erster Linie der Übersichtlichkeit von Programmen und können 
jeden beliebigen Text enthalten. In unserem Fall zeigt die REM-Anweisung 
in Zeile 10 an, daß wir es mit einem Programm zur Volumenberechnung zu 
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tun haben. Ein Programm kann aber beliebig viele REM-Anweisungen an 
beliebigen Stellen enthalten. 

In den Zeilen 20 bis 40 werden nacheinander Länge, Breite und Höhe ein¬ 
gegeben und den Variablen L, B und H zugeordnet. Zeile 50 berechnet 
dann das Volumen V, indem es diese drei Werte miteinander multipliziert. 
Zeile 60 gibt schließlich das Ergebnis mit einem entsprechenden Hinweis 
aus. Hier ein Probelauf: 

LAENGE? 20 
BREITE? 10 
HOEHE? 6 

DAS VOLUMEN BETRAEGT 1200 
READY. 
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3 Programmschleifen und Verzweigungen 


In den vorangehenden Kapiteln haben wir Programme kennengelernt, die 
ausschließlich von vorn bis hinten, d.h. von der ersten bis zur letzten Zeile, 
abgearbeitet wurden und dann endeten. Ein Computer hätte aber nur einen 
kleinen Einsatzbereich, wenn er lediglich Programme dieser Art verarbeiten 
könnte. 

Außer zu Übungszwecken gibt es aber kaum ein Programm, das sich mit 
den bisher vorgestellten Anweisungen begnügt. Vielmehr werden viele An¬ 
weisungen wiederholt abgearbeitet oder nur dann ausgeführt, wenn eine 
bestimmte Bedingung erfüllt oder nicht erfüllt ist. Mit derartigen Anwei¬ 
sungen wollen wir uns in diesem Kapitel beschäftigen. 

Bei wiederholt ausgeführten Anweisungen spricht man auch von Pro¬ 
grammschleifen, die nicht nur aus einer, sondern aus einer Vielzahl von 
Einzelanweisungen bestehen können. Häufig enthalten diese Schleifen eine 
Abbruchbedingung, d.h. sie werden solange wiederholt ausgeführt, bis diese 
Bedingung erfüllt ist. Durch diese Programmstruktur ist der Computer in 
der Lage, regelrechte Entscheidungen zu treffen. 

Im folgenden wollen wir uns nun mit den verschiedenen Wiederholungs¬ 
und Verzweigungsanweisungen befassen, die das BASIC 7.0 zur Verfügung 
stellt. 
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3.1 FOR...NEXT 

Die wohl einfachste und bekannteste Wiederholungsanweisung ist die 
FOR...NEXT-Anweisung. Wir wollen sie anhand eines kleinen Beispieles 
einmal näher betrachten. 

Angenommen, Sie wollen die Zahlen 1 bis 10 nacheinander auf dem Bild¬ 
schirm ausgeben. Dazu gibt es zwei Möglichkeiten, von denen die erste so 
aussieht: 

10 PRINT 1; 

20 PRINT 2; 

30 PRINT 3; 

40 PRINT 4; 

50 PRINT 5; 

60 PRINT 6; 

70 PRINT 7; 

80 PRINT 8; 

90 PRINT 9; 

100 PRINT 10; 

Jetzt starten wir dieses Programm mit RUN und erhalten 
123456789 10 
READY. 

In diesem Fall mußten wir zehnmal die PRINT-Anweisung ausführen, um 
alle Zahlen zwischen 1 und 10 auszugeben. Nun wollen wir das Programm 
so umschreiben, daß wir hinter PRINT nicht eine Zahl, sondern eine Va¬ 
riable I ausgeben. Damit dieses Programm nicht allzuviel Platz einnimmt, 
wollen wir immer zwei durch einen Doppelpunkt getrennte Anweisungen in 
eine Programmzeile setzen. Theoretisch können es so viele Anweisungen 
sein, wie in eine Zeile passen. Eine Programmzeile darf im BASIC 7.0 
maximal 80 Textzeichen umfassen, was beim 80-Zeichen-Modus eine Zeile 
und beim 40 Zeichen-Modus zwei Zeilen auf dem Bildschirm entspricht. 
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10 I = 1 : 

PRINT I 

20 I = 2 : 

PRINT I 

30 I = 3 : 

PRINT I 

40 I = 4 : 

PRINT I 

50 I = 5 : 

PRINT I 

60 I = 6 : 

PRINT I 

70 I = 7 : 

PRINT I 

80 I = 8 : 

PRINT I 

90 I = 9 : 

PRINT I 


100 I = 10 : PRINT I; 

In diesem Beispiel haben wir jeweils die Werte 1 bis 10 der Variablen I zu¬ 
geordnet, aber immer noch müssen wir für jeden Wert die Anweisungen 
schreiben. 

Um dies zu erleichtern, verwenden wir jetzt die FOR...NEXT-Anweisung. 
Dann sieht unser Programm so aus: 

10 FOR I = 1 TO 10 
20 PRINT I; 

30 NEXT I 

I ist hier die Laufvariable, die von 1 bis 10 durchzählt. Alle Anweisungen, 
die zwischen FOR und NEXT stehen, werden so häufig ausgeführt, wie es 
in der FOR-Anweisung angegeben ist. Erinnern wir uns nochmals daran, 
daß hinter der PRINT-Anweisung ein Semikolon steht, damit die einzelnen 
Zahlenwerte nebeneinander ausgegeben werden. Fehlt das Semikolon, er¬ 
scheinen die Zahlenwerte untereinander, jeweils in einer neuen Zeile. 

Damit sind die Möglichkeiten der FOR...NEXT-Anweisung aber noch lange 
nicht erschöpft. Der Zusatz STEP ermöglicht uns, auch rückwärts oder in 
größeren Schritten zu zählen; fehlt er dagegen, werden Einerschritte ange¬ 
nommen. Betrachten wir folgendes Beispiel: 

10 FOR I = 10 TO 1 STEP -1 
20 PRINT I; 

30 NEXT I 
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Nach RUN folgt 

10 987654321 
READY. 

STEP -1 gibt an, daß in Einerschritten zwischen 10 und 1 rückwärts ge¬ 
zählt werden soll. STEP kann aber auch einen größeren positiven oder 
negativen Wert einnehmen, wie im folgenden Beispiel: 

10 FOR I = 0 TO 50 STEP 10 
20 PRINT I; 

30 NEXT I 

Nach RUN folgt 

0 10 20 30 40 50 

READY. 

Hinter NEXT kann der Laufvariablenname I auch weggelassen werden, was 
u.a. eine geringfügige Erhöhung der Abarbeitungsgeschwindigkeit zur Folge 
hat. 

Die Schrittweite muß nicht unbedingt ganzzahlig sein, wie das folgende 
Beispiel zeigt: 

10 FOR I = .2 TO -.6 STEP -.2 
20 PRINT I; 

30 NEXT 

Nach RUN folgt 

.2 0 -.2 -.4 -.6 

READY. 

Die allgemeine Form der FOR...NEXT-Anweisung lautet: 

FOR Variable = Anfangswert TO Endwert STEP Schrittweite 
(Verschiedene Anweisungen) 

NEXT Variable oder nur NEXT 



3 Programmschleifen und Verzweigungen 


67 


In der FOR...NEXT-Anweisung können sowohl Anfangs- und Endwert als 
auch die Schrittweite aus Variablen, Ausdrücken oder Konstanten bestehen. 
Ein Beispiel: 

10 A = 20 : B = 10 : C = -.5 
20 FOR I = A TO B STEP C 
30 PRINT 1*3 + 5 
40 NEXT 

A steht hier für den Anfangswert, B für den Endwert und C für die 
Schrittweite. 

Es besteht auch die Möglichkeit, mehrere FOR...NEXT-Schleifen zu ver- 
schachteln. Dabei ist jedoch darauf zu achten, daß die inneren Schleifen in 
sich abgeschlossen sind. Hier ein Beispiel: 

10 FOR I = 1 TO 10 
20 FOR J = 0 TO 20 STEP 2 
30 FOR K = 7 TO 50 
40 .... (Anweisungen) 

50 NEXT K 
60 NEXT J 
70 NEXT I 

Beachten Sie, daß in diesem Beispiel die innere Schleife die Laufvariable 
K, die mittlere J und die äußere I hat. Falsch dagegen ist es, die Reihen¬ 
folge von NEXT zu vertauschen, wie im folgenden Beispiel (hier nur Zei¬ 
len 50 bis 70): 

50 NEXT I 

60 NEXT K (falsch!) 

70 NEXT J 

Bevor wir die FOR...NEXT-Anweisung verlassen, hier noch ein praktisches 
Beispiel zur Zinsberechnung: 
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10 REM ZINSBERECHNUNG 
20 INPUT'KAPITAL"; K 
30 INPUT'ZINSSATZ (PROZENT)"; ZP 
40 INPUT'LAUFZEIT (JAHRE)"; L 
50 Z = ZP/ 100 
60 B = K 

70 FOR I = 1 TO L 
80B = B + B*Z 
90 NEXT 

100 PRINT'DER BETRAG IST"; B 

In Zeile 20 wird per INPUT-Anweisung das Kapital eingegeben und der 
Variablen K zugeordnet. Das gleiche geschieht in Zeile 30 mit dem Zinssatz 
in Prozent (ZP) und in Zeile 40 mit der Laufzeit in Jahren (L). Zeile 50 
rechnet den Zinssatz in Prozent (ZP) in einen Dezimalbruch (Z) um. In 
Zeile 60 steht die Variable B für den jeweiligen Betrag, der zunächst mit 
dem Kapital K gleichgesetzt wird. Die Zeilen 70 bis 90 bilden dann eine 
Schleife mit einer FOR...NEXT-Anweisung. Für jedes Jahr der Laufzeit L 
wird hier der jeweilige Betrag berechnet. Zeile 100 gibt schließlich das 
Endergebnis auf dem Bildschirm aus. Beachten Sie bei dieser PRINT-An- 
weisung, daß sie zunächst den String "DER BETRAG IST" und dann den 
Inhalt der Fließkommavariablen B ausgibt. 

Wir lassen das Programm jetzt einmal laufen, wobei das Kapital von 
1000000 über 10 Jahre mit einem Zinssatz von 12% verzinst werden soll: 

KAPITAL? 1000000 
ZINSSATZ (PROZENT)? 12 
LAUFZEIT (JAHRE)? 10 
DER BETRAG IST 3105848.21 

READY. 

Das Ergebnis wäre sicherlich übersichtlicher und besser zu lesen, wenn es 
so geschrieben würde: 3 105 848.21. Im weiteren Verlauf dieses Buches 
werden wir noch die PRINT USING-Anweisung kennen lernen, die eine 
formatierte Ausgabe ermöglicht. 
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Ändern wir dieses Programm leicht ab, so können wir es zur Berechnung 
von Annuitäten verwenden. Der einzige Unterschied besteht darin, daß zu 
Beginn eines jeden Jahres ein neuer Betrag hinzukommt. Deshalb erhöht 
sich der Wert von B nicht nur um die Zinsen, sondern auch um die jeweils 
neue Einlage. 

Diese Einlage ist in der Variablen E abgelegt. Der Betrag B wird dann in 
zwei Stufen berechnet, indem zunächst die jährliche Einlage hinzugezählt 
und schließlich aus der Summe die Zinsen des letzten Jahres berechnet und 
hinzuaddiert werden: 

10 REM ANNUITAETEN 

20 INPUT’ANFANGSBETRAG"; B 

30 INPUT'ZINSSATZ (PROZENT)"; ZP 

40 INPUT'EINLAGE PRO JAHR"; E 

50 INPUT'LAUFZEIT (JAHRE)”; L 

60 Z = ZP/ 100 

70 FOR I = 1 TO L 

80 B = B + E 

90B = B + B*Z 

100 NEXT 

110 PRINT'DER BETRAG IST"; B 

Nachdem das Programm mit RUN gestartet wurde, testen wir es mit fol¬ 
genden Werten: 

ANFANGSBETRAG? 1000000 
ZINSSATZ (PROZENT)? 15 
EINLAGE PRO JAHR? 10000 
LAUFZEIT (JAHRE)? 10 
DER BETRAG IST 4279050.5 

Bitte beachten Sie, daß im Anfangsbeitrag die erste Jahreseinlage nicht ent¬ 
halten ist, weshalb sich der Betrag zunächst aus dem Anfangsbetrag und der 
ersten Jahreseinlage zusammensetzt. 
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3.2 DO...LOOP 

Die FOR...NEXT-Anweisung teilt dem Computer mit, wie oft er die zwi¬ 
schen FOR und NEXT liegenden Anweisungen ausführen soll. Dies ist in 
der Laufvariablen hinter FOR angegeben. Es gibt jedoch Fälle, in denen es 
von vornherein nicht bekannt ist, wie oft eine Schleife auszuführen ist. 
Dies geschieht dann solange, bis eine bestimmte Bedingung erfüllt ist. Das 
BASIC 7.0 bietet hierzu die DO...LOOP-Anweisung. 

Ähnlich wie bei FOR...NEXT umfaßt die Schleife hier sämtliche zwischen 
DO und LOOP liegenden Anweisungen; dabei ist jedoch keine vorgegebene 
Anzahl von Durchläufen angegeben. Sie wird unendlich oft ausgeführt, es 
sei denn, sie enthält eine Bedingung, die zum Abbruch führt. 

Um uns dies zu verdeutlichen, wollen wir nochmals alle Zahlen zwischen 1 
und 10 ausgeben, diesmal aber nicht mit der FOR...NEXT-, sondern mit 
der DO...LOOP-Anweisung: 

10 I = 1 
20 DO 

30 IF I > 10 THEN EXIT 
40 PRINT I; 

50 I = I + 1 
60 LOOP 

Nach Eingabe von RUN erfolgt 
123 456789 10 

READY. 

Als Zählvariable verwenden wir hier wieder I. In Zeile 10 erhält sie den 
Anfangswert 1. Die DO...LOOP-Schleife umfaßt die Zeilen 20 bis 60, 
wobei Zeile 40 den jeweiligen Wert von I auf dem Bildschirm ausgibt. Zeile 
50 erhöht den Wert von I jeweils um 1, d.h. bei jedem Schleifendurchlauf 
wird I fortgezählt. 

Dieser Vorgang würde sich nun unendlich oft wiederholen, hätten wir nicht 
die Abbruchbedingung in Zeile 30 eingebaut. Versuchen Sie einmal, Zeile 
30 zu löschen und das Programm erneut zu starten. Es führt dann eine 
Endlosschleife aus, die nur durch Drücken der STOP-Taste abgebrochen 
werden kann. 
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Mit der Abbruchbedingung in Zeile 30 wollen wir uns jetzt näher befassen. 
Sie lautet in allgemeiner Form 

IF (Bedingung) THEN EXIT 

Ist die Bedingung erfüllt, wird die Wiederholung abgebrochen, anderenfalls 
wird mit der nächsten Anweisung fortgefahren. 

In unserem speziellen Fall ist die Bedingung erfüllt, wenn I größer als 10 
ist, denn wir wollen ja nur die Zahlen bis ein schließlich 10 ausgeben. Hier 
nochmals Zeile 30: 

30 IF I > 10 THEN EXIT 

Das Zeichen ">" ist ein Vergleichssymbol, das wir bereits aus der Algebra 
kennen. Dabei wird der jeweilige Wert von I mit der Zahl 10 verglichen 
und zwar solange, bis er größer als 10 ist. 

Insgesamt gibt es in BASIC sechs Vergleichssymbole, die in einer IF-Bedin- 
gung auftreten können. Sie dienen zum Vergleichen von konstanten Werten, 
Variablen und Ausdrücken. Nachfolgend eine tabellarische Zusammenfas¬ 
sung dieser Symbole: 

Vergleichssymbol Bedeutung 


> 


< 


>= 


<= 


<> 


gleich 
kleiner als 
kleiner gleich 
größer als 
größer gleich 
ungleich 
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Auf keinen Fall darf aber das Gleichheitszeichen als Vergleichssymbol mit 
demjenigen in einer Zuordnungsanweisung verwechselt werden, da es sich 
hier um völlig verschiedene Anwendungen handelt. In einer Zuordnung sagt 

Y = Z 

aus, daß der Wert der Fließkommavariablen Y gleich demjenigen der 
Variablen Z gesetzt wird. Schreiben wir dagegen 

IF Y = Z THEN EXIT 

so liegt eine Bedingung vor, die erst erfüllt ist, wenn Y den gleichen Wert 
wie Z erreicht hat. 

Grundsätzlich sind die Vergleichssymbole auch für Strings anwend bar, wo¬ 
bei allerdings die alphabetische Reihenfolge geprüft wird. 

Wie wir bereits wissen, setzen sich Strings aus sogenannten ASCII-Zeichen 
zusammen, wobei jedem Buchstaben intern ein bestimmter Zahlenwert zu¬ 
geordnet ist. So entspricht der Buchstabe A dem Code 65, B dem Code 66 
usw. und Z dem Code 90. Dies können wir anhand der folgenden beiden 
Anweisungen überprüfen: 

PRINT CHR$(65) 

A 

READY. 

PRINT ASC("A") 

65 

READY. 

Die CHR$-Anweisung erzeugt für einen vorgegebenen ASCII-Code das 
entsprechende Zeichen; in unserem Beispiel erzeugt die Zahl 65 den Buch¬ 
staben A. ASC ist hiervon die Umkehrfunktion, die in unserem Fall den 
dem Buchstaben A entsprechenden ASCII-Code erzeugt. 
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Normalerweise sind die CHR$- und ASC-Anweisungen nur für den fortge¬ 
schrittenen Programmierer interessant, der sie meist nur für ganz spezielle 
Anwendungsbereiche benötigt. Für uns sollen sie im Augenblick ausschließ¬ 
lich zum Verständnis dienen, warum der Computer auch Strings mit den 
Vergleichssymbolen in alphabetischer Reihenfolge vergleichen kann. Ge¬ 
genüber den Zahlenvergleichen haben die Symbole hier eine etwas andere 
Bedeutung, wie die nachfolgende Aufstellung zeigt: 


Vergleichssymbol 


< 

<= 

> 

>= 

<> 


Bedeutung 

gleich 

kleiner in alphabetischer Reihenfolge 
kleiner oder gleich in alphabetischer Folge 
größer in alphabetischer Reihenfolge 
größer oder gleich in alphabetischer Folge 
ungleich 


Hier noch einige Beispiele zum Stringvergleich: 

HANS < MARTIN 
UNGER > MEYER 
SCHUH < SCHUHLADEN 
DREIMAL > DREI MAL 

Beachten Sie, daß beim vorletzten Beispiel das Wort SCHUH kleiner als 
SCHUHLADEN ist. Letzteres beginnt zwar vorne mit dem Wort SCHUH, 
an das jedoch noch zusätzliche Zeichen angefügt sind. 

Auch das Wort DREIMAL ist größer als DREI MAL, da DREI MAL ein 
Leerzeichen (ASCII-Code 32) enthält, das kleiner ist als die Buchstaben des 
Alphabets. 

Für die DO...LOOP-Anweisung gibt es zwei Sonderformen, die ein noch 
komfortableres Programmieren ermöglichen. Es handelt sich dabei um 

DO WHILE ... LOOP 


und 


DO UNTIL ... LOOP 
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DO WHILE bedeutet, daß der Computer eine Reihe von Anweisungen so¬ 
lange auszuführt, solange eine Bedingung wahr ist; bei DO UNTIL dagegen 
werden die Anweisungen ausgeführt, bis eine Bedingung wahr ist. 

Als Anwendungsbeispiel dieser beiden Anweisungsformen verwenden wir 
wieder unsere Aufgabe, bei der die Zahlen zwischen 1 und 10 auf dem 
Bildschirm ausgegeben werden: 

10 I = 1 

20 DO WHILE I <= 10 
30 PRINT I; 

40 I = I + 1 
50 LOOP 

Im vorliegenden Fall wird der Inhalt von I solange auf dem Bildschirm aus- 
gegeben und anschließend um 1 erhöht, wie I kleiner oder gleich 10 ist. 
Dieselbe Aufgabe läßt sich auch mit DO UNTIL programmieren: 


10 I = 1 

20 DO UNTIL I > 10 
30 PRINT I; 

40 I = I + 1 
50 LOOP 

Hier werden die Anweisungen solange ausgeführt, bis der Inhalt von I 
größer als 10 ist. Für welche der beiden Formen Sie sich entscheiden, ist 
eine Frage des Geschmacks und der Zweckmäßigkeit. Im vorliegenden Fall 
ist der Programmieraufwand in etwa der gleiche. 


3.3 READ und DATA 

Wir kennen bereits die INPUT-Anweisung, die während des Programmab¬ 
laufs Daten über die Tastatur vom Bediener anfordert. Es gibt aber noch 
eine weitere Möglichkeit, Daten ins Programm zu übernehmen. Solche 
Daten sind in DATA-Anweisungen abgelegt und werden bei Bedarf zur 
weiteren Verarbeitung mit der READ-Anweisung gelesen. 

Hier kommen in erster Linie konstante Datenwerte in Frage und nicht 
variable wie bei der INPUT-Anweisung. Es kommt nämlich häufig vor. 
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daß ein Programm mit festen Tabellen arbeiten muß, die dann aus DATA- 
Zeilen eingelesen werden können. Anderenfalls müßte sie der Bediener 
jeweils von Hand eingeben oder von einem externen Datenträger (Diskette 
oder Band) einladen. 

Die letzte Möglichkeit empfiehlt sich nur bei extrem umfangreichen Da¬ 
tendateien, die, wären sie in DATA-Zeilen abgelegt, zuviel Speicherplatz 
beanspruchen würden. Auch eine sich ständig ändernde Datei (z.B. Adres¬ 
sendatei) legt man besser auf einem Datenträger ab. Halten sich dagegen die 
Datenmengen in kleinerem Rahmen und bleiben sie bei jedem Programm¬ 
ablauf gleich, ist es oft sinnvoll, sie in DATA-Anweisungen abzulegen, die 
ein fester Bestandteil des BASIC-Programmtextes sind. 

Bereits in Kapitel 2 haben wir mit Hilfe der PRINT-Anweisung eine Ta¬ 
belle auf dem Bildschirm ausgegeben. Diese Tabelle, die den Namen, die 
Punktzahl und die Noten von Klassenarbeiten für verschiedene Schüler ent¬ 
hält, wollen wir hier zu Demonstrationszwecken mit READ- und DATA- 
Anweisungen ausgeben. Dazu dient das folgende Programm: 

10 PRINT "NAME","PUNKTE","NOTE" 

20 PRINT 
30 DO 

40 READ NA$ : IF NA$ = "ENDE" THEN EXIT 
50 READ P, N 
60 PRINT NA$, P, N 
70 LOOP 

100 DATA HANS, 35, 3 
110 DATA NICOLE, 40, 4 
130 DATA STEFAN, 50, 2.7 
140 DATA CHRISTIAN, 38, 4.3 
150 DATA URSULA, 60, 2 
160 DATA ENDE 

Zu Beginn erscheint wieder die Kopfzeile und eine Leerzeile (Zeilen 10 
und 20). Die Zeilen 30 bis 70 enthalten eine DO...LOOP-Schleife und die 
Zeilen 100 bis 160 die eigentliche "Datei", die aus DATA-Zeilen besteht. 

In einer DATA-Anweisung können eine oder mehrere Daten stehen. Sind 
mehrere Daten vorhanden, wie in unserem Fall, müssen sie durch Kommas 
getrennt sein. 
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Beachten Sie bitte auch, daß Strings in DATA-Zeilen nicht in Anführungs¬ 
zeichen eingeschlossen sein brauchen. Es ist allerdings kein Fehler, dies zu 
tun. Enthält ein String ein Komma, so ist dies jedoch zwingend notwendig, 
da Kommas ansonsten als Trennzeichen zwischen den verschiedenen Daten 
dienen. Das folgende Beispiel verdeutlicht dies: 

100 DATA "BIS GLEICH, AUF WIEDERSEHEN", TSCHUESS, 

"ADE" 

Diese DATA-Zeile enthält drei verschiedene Stringdaten. Wäre "BIS 
GLEICH, AUF WIEDERSEHEN" nicht in Anführungszeichen eingeschlos¬ 
sen, würde BASIC annehmen, daß hier zwei Strings, also BIS GLEICH und 
AUF WIEDERSEHEN vorliegen. TSCHUESS dagegen gilt als ein Wert und 
braucht nicht in Anführungszeichen zu stehen. Das gleiche gilt für ADE, 
wo die Anführungszeichen keine Wirkung haben und durchaus weggelassen 
werden könnten. 

Doch nun zurück zu unserem Programm. In der Schleife liest die READ- 
Anweisung in Zeile 40 zunächst den ersten Datenwert, der hier ein Name 
(String) ist, aus der Datentabelle und ordnet ihn der Stringvariablen NA$ 
zu. Anschließend folgt die Abfrage nach dem Label "Ende". Ein Label ist 
in der Computertechnik eine Kennzeichnung, die zu bestimmten Abfragen 
dient. In unserem Fall haben wir den String "ENDE" an das Tabellenende 
gesetzt. Wird nun dieses Wort (Label) als Name eingelesen, weiß der Com¬ 
puter, daß die Tabelle abgearbeitet ist und verläßt die Schleife aufgrund 
von EXIT. Statt ENDE könnten wir auch jedes andere beliebige Wort als 
Abbruchkriterium (Label) vereinbaren. 

Enthält nun NA$ einen anderen Wert als "ENDE", ist also das Tabellenende 
noch nicht erreicht, wird in einer weiteren READ Anweisung noch die 
Punktzahl und die Note des Schülers eingelesen. Genauso wie bei DATA 
können auch hinter READ mehrere durch Komma getrennte Variablen¬ 
namen stehen. Zeile 60 gibt dann sämtliche Werte auf dem Bildschirm aus, 
worauf das Programm in Zeile 70 an den Schleifenanfang zurückspringt. 

Nun noch ein paar Worte zum Aufbau von Programmen mit DATA-Zeilen. 
Findet BASIC nach dem Programmstart durch RUN erstmals eine READ- 
Anweisung vor, so liest es den ersten Wert in der ersten DATA-Zeile. Wird 
READ ein zweites Mal vorgefunden, so ist der zweite Datenwert an der 
Reihe usw. BASIC verfügt nämlich über einen internen Zeiger und weiß 
deshalb, welche DATA-Anweisung als nächste an der Reihe ist. Es spielt 
deshalb keine Rolle, an welcher Stelle die DATA-Zeilen im Programm ste- 
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hen. Entscheidend ist nur ihre Reihenfolge im Programmtext. Im vorliegen¬ 
den Beispiel hätten wir sie genauso gut auch an den Programmanfang setzen 
oder zwischen die anderen BASIC-Zeilen verteilen können, was allerdings 
von der Übersichtlichkeit her nicht zu empfehlen ist. 

Beim Programmstart durch RUN wird der interne DATA-Zeiger automa¬ 
tisch auf den ersten Datenwert gesetzt. Manchmal ist es jedoch erforderlich, 
ihn während des Programmablaufs wieder an den Anfang zurückzusetzen. 
Hierzu dient die Anweisung 

RESTORE 

BASIC 7.0 bietet darüberhinaus noch die Möglichkeit, den Zeiger auf jede 
beliebige DATA-Zeile zu setzen, wodurch die Datenwerte erst ab der ange¬ 
gebenen Zeile gelesen werden. Dies wollen wir anhand unseres Programms 
einmal ausprobieren. Dazu setzen wir folgende Zeile an den Programm¬ 
anfang: 

5 RESTORE 130 

Wenn Sie jetzt das Programm starten, werden als erstes die in Zeile 130 ab¬ 
gelegten Daten ausgegeben. 

Wird die RE AD-Anweisung öfter auf gerufen als Datenwerte vorhanden 
sind, läuft also der interne DATA-Zeiger über den letzten Datenwert 
hinaus, erscheint die Fehlermeldung 

?OUT OF DATA ERROR IN (Zeilennummer) 

und führt zum Programmabbruch. 
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3.4 IF...THEN...ELSE 


Die IF-Anweisung haben wir bereits bei der Schleifenprogrammierung ken¬ 
nengelernt, wo sie zur Bestimmung des Abbruchkriteriums diente. Sie hatte 
dort die allgemeine Form 

IF (Bedingung) THEN EXIT 

Aber auch jede andere Abfrage kann durch IF vorgenommen werden. Stößt 
nämlich der Computer auf eine IF-Anweisung, prüft er, ob die Bedingung 
wahr oder falsch ist. Ist die Bedingung wahr, werden die hinter THEN ste¬ 
henden Anweisungen ausgeführt, anderenfalls werden sie übersprungen. 
Betrachten wir diesen Vorgang anhand eines einfachen Beispiels, in dem 
die Zahl 25 erraten werden soll: 

5 REM ZAHLENRATEN 

10 INPUT "BITTE ZAHL EINGEBEN"; Z 

20 IF Z = 25 THEN PRINT "RICHTIG!" : GOTO 40 

30 PRINT "FALSCH!" 

40 PRINT "WEITERRATEN - BITTE LEERTASTE DRUECKEN" 

50 PRINT "WENN ANDERE TASTE - ENDE" 

60 GETKEY A$ : IF A$ = " " THEN 10 
70 END 

In Zeile 10 ist eine beliebige Zahl Z einzugeben. In Zeile 20 prüft dann die 
IF-Anweisung, ob es sich hierbei um die richtige Zahl 25 handelt. Ist dies 
der Fall, werden die hinter THEN stehenden Anweisungen ausgeführt, d.h., 
es erscheint das Wort "RICHTIG!" auf dem Bildschirm. Damit das Pro¬ 
gramm nun nicht mit Zeile 30 fortfährt, steht dahinter noch die Sprungan¬ 
weisung GOTO 40, d.h., die Programmausführung wird in Zeile 40 fortge¬ 
setzt. 

Ist die Zahl Z eine andere als 25, werden die hinter der IF...THEN stehen¬ 
den Anweisungen nicht ausgeführt und mit Zeile 30 fortgefahren. 

In beiden Fällen wird der Programmteil ab Zeile 40 ausgeführt, wo zu¬ 
nächst zwei Strings zur Information auf dem Bildschirm ausgegeben wer¬ 
den. In Zeile 60 steht die Anweisung GETKEY A$. Hier hängt das Pro¬ 
gramm solange in einer Warteschleife, bis der Bediener eine beliebige Taste 
drückt. Ist dies geschehen, fragt eine weitere IF-Anweisung, ob es sich hier 
bei um die Leertaste handelt, gekennzeichnet durch einen Leerstring von 
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einem Zeichen Länge. Ist die Bedingung erfüllt, findet ein Sprung zur 
INPUT-Anweisung in Zeile 10 statt, wo eine neue Zahl einzugeben ist. Ist 
eine andere Taste gedrückt, also die Bedingung nicht erfüllt, wird in Zeile 
70 die END-Anweisung ausgeführt. 

In diesem Fall könnte man die END-Anweisung auch fortlassen, da der 
Programmtext ohnehin an dieser Stelle zu Ende ist. END ist überall da er¬ 
forderlich, wo die Programmausführung innerhalb des Textes beendet wird, 
weil sie andererseits mit den unteren Zeilen fortfahren würde. 

Unser Zahlenrateprogramm können wir dank des leistungsstarken BASIC 
7.0 auch noch etwas kompakter schreiben, wie das folgende Listing zeigt: 

5 REM ZAHLENRATEN 

10 INPUT "BITTE ZAHL EINGEBEN"; Z 

20 IF Z = 25 THEN PRINT "RICHTIG!": ELSE PRINT "FALSCH!" 

30 PRINT "WEITERRATEN - BITTE LEERTASTE DRUECKEN" 

40 PRINT "WENN ANDERE TASTE - ENDE" 

50 GETKEY A$ : IF A$ = " " THEN 10: ELSE END 

Hier werden die beiden Möglichkeiten einer richtigen bzw. falschen Zah¬ 
leneingabe in einer Zeile abgehandelt. Ist die Bedingung erfüllt, wird wie 
zuvor "RICHTIG!" ausgegeben; ist sie nicht erfüllt, werden stattdessen die 
hinter ELSE stehenden Anweisungen ausgeführt. Dasselbe wiederholt sich 
in Zeile 50 mit der Abfrage der Leertaste. 

Wichtig! Die Anweisungen IF...THEN und IF...THEN...ELSE müssen ein¬ 
schließlich der Bedingung und sämtlicher in diesem Zusammenhang auszu¬ 
führenden Anweisungen in einer Programmzeile stehen. Ausnahmen sind 
nur im Zusammenhang mit BEGIN...BEND (siehe unten) zulässig. Steht 
hinter THEN bzw. ELSE eine Zeilennummer, so findet ein Sprung in die 
betreffende Zeile statt. Man könnte hierfür auch THEN GOTO (Zeile) bzw. 
ELSE GOTO (Zeile) schreiben. 


3.5 BEGIN....BEND 

Wie wir im letzten Absatz gesehen haben, darf sich eine komplette 
IF...THEN- bzw. IF...THEN...ELSE-Anweisung nur über eine Programm¬ 
zeile erstrecken, die maximal 160 Textzeichen einschließlich der Zeilen¬ 
nummer umfaßt. Diese Einschränkung ist allerdings zu umgehen, indem 
hinter dem THEN- bzw. ELSE-Teil beliebig viele Anweisungen in eine 
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BEGIN...BEND Umklammerung eingeschlossen werden können, die beliebig 
viele Programmzeilen umfassen kann. Somit lassen sich auch größere Pro¬ 
grammblöcke ohne GOTO programmieren, was nicht nur die Übersichtlich¬ 
keit, sondern auch die Ablaufgeschwindigkeit des Programms erhöht. Bei 
jedem GOTO-Befehl muß der BASIC-Interpreter zunächst die Zeilennum¬ 
mer aus dem Dezimal- ins Binärformat umrechnen und anschließend die 
betreffende Zeile suchen. 

Bei der Anwendung der BEGIN...BEND-Anweisung treten keine Zeilen¬ 
nummern mehr auf. Dieser Vorteil macht sich besonders dann bemerkbar, 
wenn der betreffende Programmteil in einen anderen Zeilenbereich über¬ 
nommen werden soll. Außerdem entfällt das sonst lästige Berechnen der 
Zeilennummern bei GOTO-Befehlen. 

Die BEGIN...BEND-Anweisung wollen wir uns anhand eines Beispiels ver¬ 
deutlichen: 

10 PRINT "HABEN WIR HEUTE SCHOENES WETTER (J/N) ?" 

20 GETKEY A$ 

30 IF A$ = "J" THEN BEGIN 

40 PRINT "DANN HABEN WIR HEUTE EINEN HERRLICHEN 
TAG" 

50 PRINT "UND WOLLEN UNS EIN PAAR SCHOENE STUNDEN" 
60 PRINT "IM FREIBAD GOENNEN" 

70 BEND : ELSE BEGIN 

80 PRINT "SCHADE, HEUTE REGNET ES" 

90 PRINT "ABER WIR LASSEN UNS DIE LAUNE NICHT" 

100 PRINT "VERDERBEN UND SPIELEN MONOPOLY" 

110 BEND 

Dieses Programm fragt Sie, wie heute das Wetter ist. Antworten Sie mit "J", 
werden die Zeilen 40 bis 60 ausgeführt, die Ihnen raten, ins Freibad zu 
gehen. Geben Sie "N" oder irgend eine andere Taste ein, werden die Zeilen 
80 bis 100 ausgeführt, die den Hinweis geben, bei schlechtem Wetter 
Monopoly zu spielen. Ausgeführt werden jeweils die Zeilen, die zwischen 
BEGIN und BEND stehen. 

Beachten Sie bitte Zeile 70. BEND des THEN-Teils und ELSE BEGIN ste¬ 
hen hier in einer Zeile hintereinander. Wenn Sie diese Schreibweise ver¬ 
letzen, arbeitet das Programm nicht ordnungsgemäß. 
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3.6 Die Booleschen Operatoren 
Haben wir z.B. die Bedingung 


X = Y 


so sagt sie aus, daß der Wert von X gleich dem Wert von Y ist. Darüber 
hinaus ist es wünschenswert, auch Bedingungen in zusammengesetzten 
Sätzen zu schreiben, wie z.B. "Der Wert von U ist gleich dem Wert von Y 
und der Wert von X ist kleiner als der Wert von Y. Durch Einsetzen der 
entsprechenden logischen Operatoren AND, OR und NOT (deutsch und, 
oder, nicht), können Bedingungen gemäß dem oben zusammengesetzten Satz 
geschrieben werden: 

U = V AND X < Y 

Bevor wir uns nun mit den einzelnen logischen Operatoren befassen, wollen 
wir uns darüber klar werden, wie der Computer reagiert, wenn eine Bedin¬ 
gung wahr oder falsch ist. In einigen Programmiersprachen gibt es dafür 
einen speziellen Datentyp, der nur die beiden Werte TRUE (wahr) und 
FALSE (falsch) annehmen kann. Ein solcher Datentyp existiert in BASIC 
nicht, stattdessen findet der Datentyp Integer Verwendung. 0 steht hier für 
falsch und -1 für wahr. Bedingungen wie A = B sind Ausdrücke, die den 
Wert -1 ergeben, wenn die Bedingung wahr ist und 0, wenn sie falsch ist: 

PRINT 2 = 2 

-1 

READY. 

PRINT 12 > 20 
0 


READY. 
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PRINT "HANS" < "MARTIN" 

-1 

READY. 

PRINT "FRITZ" = "FRITZCHEN" 

0 

READY. 

Ergibt eine durch IF geprüfte Bedingung den Wert -1, dann werden die 
Anweisungen im THEN-Teil ausgeführt, entsteht dagegen der Wert 0, dann 
sind es die Anweisungen im ELSE-Teil. 

IF -1 THEN PRINT "WAHR" ELSE PRINT "FALSCH" 

WAHR 

READY. 

IF 0 THEN PRINT "WAHR" ELSE PRINT "FALSCH" 

FALSCH 

READY. 

Die IF-Anweisung akzeptiert in der Regel auch andere Werte (außer 0), um 
"wahr" zu erzeugen, wie im folgenden Beispiel: 

IF 3 THEN PRINT "WAHR" : ELSE PRINT "FALSCH" 

WAHR 

READY. 

BASIC kennt somit nur einen Wert, nämlich den Wert 0, der als "falsch" ge¬ 
deutet wird, alle anderen Werte bedeuten "wahr". Obwohl alle Werte, die 
ungleich 0 sind, den Zustand "wahr" darstellen, wollen wir hier trotzdem 
den Wert -1 weiterverwenden, da er auch von den Booleschen Operatoren 
erzeugt wird. Im folgenden wollen wir uns mit den Operatoren einzeln be¬ 
fassen. 
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3.6.1 NOT 

Ist einer Bedingung NOT vorangestellt, wird sie verneint, ebenso wie auch 
ein Satz, der das Wort "nicht" enthält, verneint wird. 

NOT 7 < 5 

entspricht somit der Aussage, daß 7 nicht kleiner als 5 sei. Um dies zu er¬ 
reichen, muß nämlich NOT von -1 nach 0 und von 0 nach 1 umgeändert 
werden: 

PRINT NOT -1; NOT 0 
0 -1 

READY. 

PRINT NOT 7 < 5 
-1 

READY. 


3.6.2 AND 

Betrachten wir zunächst die Bedingung: 

2 < 3 AND 10 > 12 

In Worten ausgedrückt bedeutet dies: "2 ist kleiner als 3 und 10 ist größer 
als 12". Ein zusammengesetzter Satz mit AND ist nur wahr, wenn beide 
Teilsätze wahr sind. AND erzeugt den Wert -1 also nur dann, wenn beide 
betrachteten Werte wahr, also auch -1 sind. 

PRINT 0 AND 0; 0 AND -1; -1 AND 0; -1 AND -1 
0 0 0 -1 

READY. 

PRINT 2 < 3 AND 10 > 12 
0 


READY. 
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3.6.3 OR 

Zunächst betrachten wir wieder die Bedingung: 

2 < 3 OR 10 > 12 

Sie sagt aus, daß 2 kleiner als 3 oder 10 größer als 12 ist oder daß beides 
zutrifft. Durch OR entsteht der Wert -1 (wahr), wenn einer oder beide 
Werte -1 (wahr) sind. 

PRINT 0 OR 0; 0 OR -1; -1 OR 0; -1 OR -1 
0 -1 -1 -1 

READY. 

PRINT 2 < 3 OR 10 > 12 
-1 

READY. 


3.6.4 XOR 
Die Bedingung 

2 < 3 XOR 10 > 12 

sagt aus, daß 2 kleiner als 3 und 10 größer als 12 ist, aber daß nicht beides 
zutrifft. Nur wenn beide Werte gleich sind, unterscheiden sich OR und 
XOR, wobei OR den Wert -1 und XOR den Wert 0 erzeugt: 

PRINT 0 XOR 0; 0 XOR -1; -1 XOR 0; -1 XOR -1 
0 - 1-1 0 


READY. 
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Abschließend wollen wir noch einen praktischen Anwendungsfall für die 
Booleschen Operatoren betrachten. In der Geodäsie ist es üblich, zum 
Zwecke weiterer Fernbeobachtungen eine Strecke von 50 m genau einzu¬ 
messen. Dazu wird die Strecke mehrfach gemessen, um sicherzustellen, daß 
sich der Abstand der Endpunkte innerhalb der zulässigen Toleranzgrenze 
von 0,03 m bewegt. Messungen, die über diese Toleranzgrenze hinausgehen, 
werden nicht weiter verwertet und scheiden aus. 


10 REM TOLERANZMESSUNG EINER MESSTRECKE 
20 PRINT "LAENGE", "ANGENOMMEN" 

30 PRINT 
40 READ L 
50 DO 

60 IF L = 9999 THEN EXIT 
70 PRINT L, 

80 IF L>=49.97 AND L<=50.03 THEN PRINT "JA": ELSE PRINT 
"NEIN" 

90 READ L 
100 LOOP 

110 DATA 50.01, 50.07, 49.97, 49.99, 49.93, 9999 


Nach Eingabe von RUN erscheint folgende Auswertung: 


LAENGE ANGENOMMEN 


50.01 

50.07 

49.97 

49.99 

49.93 


JA 

NEIN 

JA 

JA 

NEIN 


READY. 


Die einzelnen Meßwerte L werden hier aus DATA-Anweisungen eingele¬ 
sen, und in einer DO...LOOP-Schleife getestet und ausgegeben. Ist ihre 
Länge innerhalb der zulässigen Toleranzgrenze, wird zusätzlich das Wort 
"JA" ausgegeben, anderenfalls das Wort "NEIN". Das Tabellenende ist hier 
wieder mit einem Label gekennzeichnet, denn wenn das Programm den 
Wert 9999 erkennt, bricht es ab. 
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4 Programmaufbau und Fehlerbehandlung 


In diesem Kapitel wollen wir uns mit den wesentlichen Elementen zum 
Aufbau von BASIC-Programmen befassen und in diesem Zusammenhang 
weitere wichtige Anweisungen kennenlernen. Zwar wissen wir bereits, daß 
wir Programmzeilen beliebig aneinanderreihen können, um sie dann nach¬ 
einander abzuarbeiten, wobei wir zweifellos ein ablauffähiges Programm 
erhalten. Es bleibt jedoch die Frage offen, ob das Programm optimal auf¬ 
gebaut ist, insbesondere was den Programmieraufwand, die Rechenzeit und 
die Übersichtlichkeit betrifft. Wir werden uns deshalb nunmehr mit Funk¬ 
tionen und Unterprogrammen beschäftigen, aus denen sich gut strukturierte 
Programme zusammensetzen. Ein auf diese Weise sinnvoll durchgeführter 
Programmaufbau ist der beste Weg, um komplizierte Aufgabenstellungen in 
übersichtliche Teile zu untergliedern. 

Je umfangreicher ein Programm wird, desto größer ist auch die Wahr¬ 
scheinlichkeit, daß Programmierfehler auftreten. Aus diesem Grunde be¬ 
fassen wir uns am Schluß des Kapitels mit Möglichkeiten, Fehler aufzu¬ 
spüren und zu beheben. 


4.1 Eingebaute Funktionen 

Der BASIC-Interpreter enthält einige eingebaute Funktionen, die uns das 
Programmieren erleichtern. Sie dienen zur Definition von Zahlen- oder 
Stringoperationen und können als separate Programmteile betrachtet wer¬ 
den, die nicht gesondert definiert werden müssen. 

Nun gibt es im BASIC 7.0 einfachere und kompliziertere Funktionen. Die 
wissenschaftlichen Funktionen, die wir schon in Kapitel 2 kennengelernt 
haben, gehören zu den komplizierteren. Zweifellos könnten Sie z.B. die Si- 
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nusfunktion auch selbst programmieren, indem Sie ein Programm schreiben, 
das bei jedem Aufruf eine Potenzreihe durchrechnet. Dazu brauchten Sie 
allerdings Kenntnisse in der Potenzreihenentwicklung und müßten darüber 
hinaus beachten, daß diese Reihe aureichend schnell konvergiert, um bei 
einer minimalen Anzahl von Schleifendurchläufen die größtmögliche Re¬ 
chengenauigkeit zu erhalten. 

Diese und ähnliche Aufgaben nimmt Ihnen nun der BASIC-Interpreter ab, 
indem er eine interne Maschinenroutine aufruft, welche die Berechnungen 
auch noch um ein Vielfaches schneller ausführt, als es mit einem BASIC- 
Programm möglich wäre. 


4.1.1 ABS 

Die ABS-Funktion bestimmt den absoluten Wert einer Zahl, d.h. sie führt 
eine Operation aus, bei der negative Zahlen ein positives Vorzeichen erhal¬ 
ten, während es bei positiven Zahlen gleich bleibt. In anderen Worten: Es 
spielt keine Rolle, ob der Ausgangswert positiv oder negativ ist, das Ergeb¬ 
nis ist auf jeden Fall positiv. 

Betrachten wir dies an einem Beispiel: Der Wert -3 wird nach Ausführung 
der ABS-Funktion zu +3 oder einfach zu 3, während der Wert 100 gleich 
bleibt. In BASIC sieht das folgendermaßen aus: 

PRINT ABS(-3) 

3 

READY. 


PRINT ABS(IOO) 
100 

READY. 


Hinter ABS muß das Argument, wie bei allen Funktionen, in Klammern 
eingeschlossen sein. Dabei muß es nicht unbedingt ein konstanter Zahlen¬ 
wert sein, sondern kann auch aus einer Variablen oder einem arithme¬ 
tischen Ausdruck bestehen wie in den folgenden Beispielen: 
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A = -4 : PRINT ABS(A) 

4 

READY. 

PRINT ABS (100*(5-2)) 

300 

READY. 

Ein typischer Anwendungsfall für die ABS-Funktion ist die Bestimmung 
von Abweichungen in der Toleranzmessung. Betrachten wir nochmals unser 
Beispiel aus Kapitel 3, in dem die Meßwerte einer Meßstrecke ausgewertet 
wurden. Wir wollen es hier etwas erweitern, indem wir nicht nur angeben 
wollen, ob die Messung verwertbar ist oder nicht, sondern zusätzlich noch 
den absoluten Fehler in Metern. Dabei interessiert es bei solchen Messungen 
nicht, ob der Sollwert nach oben oder nach unten abweicht, d.h., ob die 
Differenz positiv oder negativ ist, denn man verwertet in solchen Fällen 
immer den Absolutwert. 

10 REM TOLERANZMESSUNG EINER MESSTRECKE 
20 PRINT "LAENGE","FEHLER","ANGENOMMEN" 

30 PRINT 
40 READ L 
50 DO 

60 IF L = 9999 THEN EXIT 
70 PRINT L, ABS(50-L), 

80 IF L>=49.97 AND L<=50.03 THEN PRINT "JA": ELSE PRINT 
"NEIN" 

90 READ L 
100 LOOP 

110 DATA 50.01, 50.07, 49.97, 49.99, 49.93, 9999 

Beachten Sie Zeile 70, in der außer der gemessenen Länge auch noch der 
absolute Fehler ausgegeben wird. Nach Eingabe von RUN erscheint die 
Auswertung: 
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LAENGE 

FEHLER 

ANGENOMMEN 

50.01 

.01 

JA 

50.07 

.07 

NEIN 

49.97 

.03 

JA 

49.99 

.01 

JA 

49.93 

.07 

NEIN 

READY. 



4.1.2 INT 




Viele Zahlen bestehen aus einem ganzzahligen und einem gebrochenen Teil. 
So setzt sich z.B. die Zahl 123.456 aus 123 als ganzzahligem und .456 als 
gebrochenem Teil zusammen. 

Die INT-Funktion trennt nun den gebrochenen Teil ab und gibt den ganz¬ 
zahligen Teil wieder. Dabei handelt es sich strenggenommen um den 
nächstkleineren ganzzahligen Wert, was besonders bei negativen Zahlen zu 
Irrtümern führen kann. Hier ein paar Beispiele: 

PRINT INT( 123.456) 

123 

READY. 

PRINT INT(2.2) 

2 

READY. 

PRINT INT(3.5) 

3 


READY. 
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PRINT INT(-3.5) 

-4 

READY 

PRINT INT(-5) 

-5 

READY. 

Beachten Sie besonders die letzten beiden Beispiele. Von -3.5 ist die 
nächstkleinere ganze Zahl -4 und nicht -3. -5 hat keinen gebrochenen Teil 
und wird deshalb nach Ausführung der INT-Funktion genauso wiederge¬ 
geben. 

Die INT-Funktion wird häufig zum Runden von Zahlenwerten eingesetzt. 
Aus den oben genannten Gründen können aber nur positive Zahlen gerun¬ 
det werden, während bei negativen ein Vorzeichenwechsel vorgenommen 
werden muß. 

Ist die letzte nicht mehr auszugebene Ziffer 5 oder größer, findet eine 
Aufrundung, sonst eine Abrundung statt. Wir wollen jetzt ein kleines Pro¬ 
gramm schreiben, das gebrochene Dezimalzahlen auf ganze Zahlen rundet: 

10 REM RUNDEN 
20 INPUT "ZAHL"; Z 
30 F=1 : IF Z < 0 THEN F= -1 
40 Z = ABS(Z) 

50 PRINT F * INT(Z+.5) 

60 GOTO 20 

In Zeile 20 wird die zu rundende Zahl eingegeben. Zeile 30 ordnet der 
Variablen F den Wert 1 zu. In der nachfolgenden IF-Anweisung wird ge¬ 
prüft, ob die Zahl negativ ist. In diesem Fall erhält die Variable F den Wert 
-1. Wir verwenden hier also F als Vorzeichenfaktor, der angibt, ob wir es 
mit einer positiven oder negativen Zahl zu tun haben und treffen die Ver¬ 
einbarung, daß F bei positiven Zahlen den Wert 1 und bei negativen Zahlen 
den Wert -1 annehmen soll. Dies hat seinen guten Grund, denn wir führen 
in Zeile 40 die ABS-Funktion aus, die ein negatives Vorzeichen entfernt. 
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Die eigentliche Rundung findet in Zeile 50 mit Hilfe der INT-Funktion 
statt. Dazu wird zu Z der Wert .5 addiert und aus der Summe die nächst¬ 
kleinere ganze Zahl gebildet. Betrachten wir einmal die Zahl 1.5 als Grenz¬ 
fall des Auf- oder Abrundens. 1.5 + .5 ergibt 2, wovon die nächstkleinere 
ganze Zahl ebenfalls 2 ist. Es findet also eine Aufrundung statt. Dagegen 
wird 1.49 abgerundet, weil 1.49 + .5 = 1.99 ist, wovon die nächskleinere 
Zahl gleich 1 ist. Multiplizieren wir das Ergebnis mit dem Vorzeichenfaktor 
F, erhalten wir wieder das richtige Vorzeichen. Zeile 60 springt wieder an 
den Programmanfang nach Zeile 20, um die nächste Zahl anzufordern. 

Hier nun ein Probelauf nach Eingabe von RUN: 

ZAHL? 45.3 
45 

ZAHL? -9.9 
-10 

ZAHL? -3.5 
-4 

ZAHL? 3.5 
4 

usw. 

Jetzt wollen wir unser Programm so umändern, daß es nicht auf ganze 
Zahlen, sondern auf zwei Stellen nach dem Dezimalpunkt rundet: 

10 REM RUNDEN AUF ZWEI DEZIMALSTELLEN 
20 INPUT "ZAHL"; Z 
30 F=1 : IF Z < 0 THEN F= -1 
40 Z = ABS(Z) 

50 PRINT F * INT(Z*100+.5)/100 
60 GOTO 20 

Wir haben lediglich Zeile 50 abgewandelt. Da wir auf zwei Stellen runden, 
multiplizieren wir die Zahl zunächst mit 100, führen dann die INT-Funk¬ 
tion durch und teilen das Ergebnis wieder durch 100: 
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ZAHL? 123.456 
123.46 

ZAHL? 12.999 
13 

ZAHL? -45.673 
-45.67 

usw. 


4.1.3 SGN 

SGN ist eine Funktion, die das Vorzeichen ihres Arguments bestimmt oder 
angibt, ob es Null ist. Ist das Argument positiv, erzeugt SGN den Wert 1, 
ist es negativ, den Wert -1, und bei Null entsteht das Ergebnis 0. Hier 
einige Beispiele: 

PRINT SGN(5.23) 

1 

READY. 

PRINT SGN(-78) 

-1 

READY 

PRINT SGN(O) 

0 

READY. 

Als wir im vorigen Absatz mit Hilfe der INT-Funktion Zahlen rundeten, 
mußten wir zunächst das Vorzeichen bestimmen, das wir in der Variablen F 
ablegten. Bei positiver Zahl war F = 1 und bei negativer -1. 

In diesem Beispiel könnten wir Zeile 30 auch durch eine SGN-Funktion er¬ 
setzen, wobei die IF-Anweisung entfällt: 


30 F = SGN(Z) 
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Der einzige Unterschied im Programmablauf mit der neuen Zeile 30 besteht 
darin, daß bei einem Zahlenwert Null F auch Null und nicht mehr 1 wird. 
Da aus der INT-Funktion in diesem Fall ebenfalls das Ergebnis Null her¬ 
vorgeht, spielt es keine Rolle, ob diese Null nochmals mit einer anderen 
Null multipliziert wird. 


4.1.4 SQR 

Die SQR-Funktion erzeugt die Quadratwurzel ihres Arguments. Wird das 
Ergebnis mit sich selbst multipliziert (quadriert), entsteht wieder der Wert 
des Arguments: 

PRINT SQR(49) 

7 

READY. 

PRINT SQR(2) 

1.41421356 

READY. 

PRINT SQR(-3) 

7ILLEGAL QUANTITY ERROR 
READY. 

Im letzten Fall entstand ein ILLEGAL QUANTITY ERROR, der angibt, 
daß ein unzulässiger Zahlenwert vorliegt. Aus dem Argument -3 kann näm¬ 
lich keine direkte Quadratwurzel gezogen werden. 

Als Anwendungsbeispiel für die SQR-Funktion nachfolgend ein Programm, 
das die Diagonale eines Rechtecks berechnet. Hierzu müssen Länge und 
Breite quadriert, die Quadrate addiert und aus der Summe die Quadratwur¬ 
zel gezogen werden (Satz von Pythagoras). 

10 REM DIAGONALE IN RECHTECK 
20 INPUT "LAENGE"; A 
30 INPUT "BREITE"; B 
40 C = SQR(A A 2 + B A 2) 

50 PRINT "DIE DIAGONALE BETRAEGT"; C 
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Hier ein Probelauf: 

LAENGE? 5 
BREITE? 2 

DIE DIAGONALE BETRAEGT 5.38516481 
READY. 

Beachten Sie bitte, daß es von der Rechenzeit her günstiger ist, die beiden 
Exponentiationen in Zeile 40 durch Multiplikationen zu ersetzen: 

40 C = SQR(A*A + B*B) 

In unserem Beispiel dürfte sich der Zeitvorteil durch Multiplikation noch 
weniger bemerkbar machen; anders ist es jedoch, wenn Sie riesige Daten¬ 
mengen nach dieser Formel berechnen. 


4.2 Wissenschaftliche Funktionen 

Der Vollständigkeit halber wollen wir hier die wissenschaftlichen Funk¬ 
tionen nochmals betrachten, obwohl sie in Kapitel 2 bereits vorgestellt 
wurden. Falls Sie diese Funktionen nicht benötigen, können Sie den Ab¬ 
schnitt übergehen. Sie sind jedoch für alle Leser wichtig, die mit ihrem 128 
PC naturwissenschaftlich-technische Berechnungen durchführen möchten. 

BASIC bietet insgesamt sechs vorprogrammierte wissenschaftliche Funktio¬ 
nen, von denen X jeweils das Argument darstellt: 

SIN(X) Sinus 

COS(X) Cosinus 

TAN(X) Tangens 

ATN(X) Arcustangens 

EXP(X) Potenz zur Zahl e (2.71...) 

LOG(X) natürlicher Logarithmus 

Beachten Sie, daß die Winkel für sämtliche trigonometrischen Funktionen 
im Bogenmaß angegeben werden müssen. Ein Beispiel zur Umrechnung be¬ 
findet sich in Kapitel 2. 
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Die folgende Tabelle enthält zwar nicht alle wissenschaftlichen Funktionen, 
zumindest aber die wichtigsten, aus denen alle anderen leicht hergeleitet 
werden können. Hier einige Beispiele: 


Funktion 

Programmierung in BASIC 

SECANS(X) 

COSECANS(X) 

COTANGENS(X) 

l/COS(X) 

1/SIN(X) 

1/TAN(X) 

ARCUSSINUS(X) 

ARCUSCOSINUS(X) 

ARCUSCOTANGENS(X) 

ARCUSSECANS(X) 

ARCUSCOSECANS(X) 

ATN(X/SQR( 1 -X*X)) 
-ATN(X/SQR(1-X*X)) + PI/2 
ATN(X) + PI/2 

ATN(X/SQR(X*X-1)) 
ATN(X/SQR(X*X-1)) 

+(SGN(X)-1 )*PI/2 

SINUS HYPERBOLICUS(X) 
COSINUS HYPERBOLIKUS(X) 
TANGENS HYPERBOLIKUS(X) 
COTANGENS HYP.(X) 

SECANS HYP.(X) 

COSECANS HYP.(X) 

(EXP(X)-EXP(-X))/2 

(EXP(X)+EXP(-X))/2 

EXP(-X)/(EXP(X)+EXP(-X))*2+1 

EXP(-X)/(EXP(X)-EXP(-X))*2+1 

2/(EXP(X)+EXP(-X)) 

2/(EXP(X)-EXP(-X)) 

ARCUSSINUS HYP.(X) 
ARCUSCOSINUS HYP.(X) 
ARCUSTANGENS HYP.(X) 
ARCUSCOTANGENS HYP.(X) 
ARCUSSECANS HYP.(X) 
ARCUSCOSECANS HYP.(X) 

LOG(X+SQR(X*X+l)) 
LOG(X+SQR(X*X-1)) 

LOG(( 1 +X)/( 1 -X))/2 

LOG((X+l )/(X-1 ))/2 

LOG((SQR( 1 -X*X)+1 )/X) 
LOG((SQR( 1 +X*X)+1 )/X) 

ZEHNERLOG ARITHMUS(X) 

LOG(X)/LOG(10) 


Anmerkung: Die Zahl PI entspricht 3.14159265. 

4.3 Zufallszahlen 

Über die Funktion RND(X), die Zufallszahlen generiert, werden sich be¬ 
stimmt diejenigen Leser freuen, die selbst Spiele programmieren möchten. 
Jedes Spiel wäre nämlich langweilig, wenn sein Ablauf vorhersehbar wäre 
und der Spieler würde bald die Lust verlieren. 
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Diese Zufallszahlen sind in Wirklichkeit nur Pseudo-Zufallszahlen, denn 
der Computer kann keine "zufällige" Entscheidung treffen. Sie sind durch¬ 
aus errechnet und werden durch einen internen Taktzähler bestimmt, der 
u.a. auch die interene Uhr steuert. 

Die von BASIC erzeugten Zufallszahlen liegen alle im Bereich zwischen 0 
und .999999999. Wenn Sie die Anweisung 

PRINT RND(X) 

wiederholt ausführen, erhalten Sie jedesmal eine andere Zahl in diesem Be¬ 
reich. Da es keine negativen Zufallszahlen gibt, läßt sich leicht mit Hilfe 
der INT-Funktion ein Würfelspiel simulieren, das ganzzahlige Zufallswerte 
zwischen 1 und 6 erzeugt: 

10 GETKEY A$ 

20 Z = RND(X) 

30 PRINT INT(6*Z)+1 
40 GOTO 10 

Ist dieses Programm gestartet, hängt es in einer Schleife. Zunächst wartet 
die GETKEY-Anweisung darauf, daß Sie eine beliebige Taste drücken. 
Zeile 20 ordnet dann der Variablen Z eine Zufallszahl zwischen 0 und 
.999999999 zu. Indem dieser Zahlenbereich mit 6 multipliziert wird, entste¬ 
hen Zufallszahlen zwischen 0 und 5.99999999. Die INT-Funktion eliminiert 
nun den gebrochenen Teil, so daß ganze Zahlen zwischen 0 und 5 übrig¬ 
bleiben. Zum Schluß wird noch 1 hinzuaddiert, so daß wir die gewünschten 
Zahlen zwischen 1 und 6 erhalten. Schließlich springt Zeile 40 wieder an 
den Programmanfang zurück. 

Durch geringe Abänderung des Programms können wir Zufallszahlen in je¬ 
dem beliebigen Bereich erzeugen. Wünschen wir z.B. Roulettzahlen zwi¬ 
schen 1 und 37, so lautet Zeile 30 

30 PRINT INT(37*Z)+1 

Kennen Sie sich erst einmal in der Programmierung von Zufallszahlen aus, 
sind Ihrer Phantasie keine Grenzen gesetzt, eigene Spiele zu schreiben. Zur 
Abrundung dieser Beschreibung hier noch ein Zahlenratespiel, bei dem eine 
Zahl zwischen 1 und 1000 zu erraten ist. Bei jedem Durchlauf bestimmt der 
Computer eine Zufallszahl in diesem Bereich. Daraufhin werden Sie aufge¬ 
fordert, diese Zahl zu erraten und einzugeben. 
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Durch Hinweise erfahren Sie dann, ob diese Zahl, falls sie nicht stimmte, 
zu groß oder zu klein war und können dann solange einen weiteren Ver¬ 
such starten, bis Sie die richtige Zahl erraten haben. 

10 REM ZAHLENRATESPIEL 

20 R = INT( 1000*RND(X))+1 

30 INPUT "BITTE ZAHL 1 - 1000 EINGEBEN"; Z 

40 IF Z=R THEN PRINT "RICHTIG! HERZLICHEN 

GLUECKWUNSCH!":END 

50 IF Z>R THEN PRINT "ZU GROSS!":ELSE PRINT "ZU KLEIN!" 
60 GOTO 30 

Zeile 20 erzeugt zunächst eine Zufallszahl zwischen 1 und 1000. In Zeile 30 
werden Sie aufgefordert, eine Zahl in diesem Bereich einzugeben. Haben 
Sie richtig geraten, erscheint die Meldung "RICHTIG! HERZLICHEN 
GLUECKWUNSCH!" und das Programm endet. Anderenfalls entsteht die 
Meldung "ZU GROSS!" bzw. "ZU KLEIN" und Sie werden aufgefordert, 
eine weitere Zahl einzugeben. 


4.4 Frei definierte Funktionen 

Neben den fest eingebauten Funktionen bietet BASIC die Möglichkeit, 
Funktionen selbst zu definieren und bei Bedarf aufzurufen und auszufüh¬ 
ren. Dies geschieht mit der DEFFN-Anweisung, die vor dem ersten Aufruf 
definiert weden muß. Aus diesem Grunde stehen DEFFN-Anweisungen 
meistens am Programmanfang. 

Eine Funktion frei zu definieren ist besonders dann sinnvoll, wenn sie 
häufig im Programm aufgerufen wird. Durch die Definition spart man 
nicht nur an Programmieraufwand, sondern auch an Speicherplatz. Kommt 
die hinter DEFFN stehende Funktion jedoch nur ein- oder zweimal vor, ist 
es meist sinnvoller, sie an der betreffenden Programmstelle als normale An¬ 
weisung auszuführen. 

Einen Nachteil hat die DEFFN-Anweisung trotzdem, denn Sie darf nur 
eine Variable verwalten, die die Aufrufanweisung FN als Argument ent¬ 
halten kann. Sollen z.B. in einem Programm häufig Zahlen gerundet wer¬ 
den, ist meist nur eine Variable nötig, die die zu rundende Zahl enthält 
und als Argument hinter FN stehen kann. Anders ist es bei der Volumen¬ 
berechnung eines Quaders, in der Länge, Breite und Höhe in Variablen ab¬ 
gelegt sind. Zwar können wir auch diese Berechnung mit Hilfe einer Funk- 
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tionsdefinition durchführen, müssen aber die Variablen werte gesondert ein¬ 
geben. Wie dies funktioniert, zeigt das folgende Beispiel: 

10 DEFFN V(X) = L * B * H 
20 INPUT "LAENGE"; L 
30 INPUT "BREITE"; B 
40 INPUT "HOEHE"; H 

50 PRINT "DAS VOLUMEN BETRAEGT"; FN V(X) 

60 GOTO 20 

In Zeile 10 wird die Funktion V definiert. V ist hier kein Variablen-, son¬ 
dern der Funktionsname. Das X in Klammern ist in diesem Fall ein Blind¬ 
argument, da wir die drei Variablen L, B und H gesondert eingeben. 

Die Definition lautet nun, daß die Variablen L, B und H miteinander zu 
multiplizieren sind, wenn die Funktion in Form von FN V(X) aufgerufen 
wird. Dies geschieht in Zeile 50, nachdem den Variablen mit Hilfe von IN¬ 
PUT-Anweisungen Werte zugeordnet wurden. 

Je nach Größe der Funktion benötigt die FN-Anweisung weit weniger Platz 
als die komplette Funktion. 

Im folgenden Beispiel benötigen wir zur Quadratwurzelberechnung nur eine 
Variable X, die wir als Argument von DEFFN und FN verwenden wollen. 
Wichtig ist nur, daß sie in der Definition der Funktion enthalten ist: 

10 DEFFN V(X) = SQR(X) 

20 X = 25 
30 PRINT FNV(X) 

40 PRINT FNV(49) 

50 A = 64 
60 PRINT FNV(A) 


In diesem Fall ist das Argument X auch Bestandteil der SQR-Funktion. 
Wird jetzt der Variablen X während des Programmablaufs ein Wert zuge¬ 
ordnet, wie hier in Zeile 20, dient dieser Wert bei Aufruf der Funktion als 
Argument (Zeile 30). Dabei kann das Argument auch aus einer Konstanten 
(Zeile 40) oder einer anderen Variablen bestehen (Zeile 60). Nach Ablauf 
des Programms erscheinen folgende Ergebnisse: 



100 


4 Programmaufbau und Fehlerbehandlung 


5 

7 

8 

READY. 

Abschließend noch ein Beispiel, das mit Hilfe einer Funktionsanweisung 
Zahlen auf zwei Stellen hinter dem Dezimalpunkt rundet: 

10 DEFFN R(X) = INT(X*SGN(X)*100+.5)/100*SGN(X) 

20 INPUT X 
30 PRINT FNR(X) 

40 GOTO 20 

In diesem Programm wurde die gesamte Rundung geschickt in einer einzi¬ 
gen Funktion zusammengefaßt, wobei auf die ABS-Anweisung verzichtet 
wurde. Stattdessen wird die zu rundende Zahl mit ihrem eigenen Vorzei¬ 
chen SGN(X) multipliziert, was in jedem Fall eine positive Zahl für die 
INT-Funktion ergibt. Abschließend wird das richtige Vorzeichen durch 
nochmalige Multiplikation mit SGN(X) wieder eingesetzt. 


4.5 Unterprogramme 

Frei definierte Funktionen können immer nur eine Programmzeile umfas¬ 
sen. Dies ist in vielen Fällen sinnvoll und völlig ausreichend. Nicht selten 
kommt es aber vor, daß ganze Programmteile, die aus einer Vielzahl von 
Zeilen bestehen, während des Programmablaufs wiederholt ausgeführt wer¬ 
den müssen. 

Solche Programmteile können nun als Unterprogramm definiert und an 
jeder beliebigen Stelle des Hauptprogramms aufgerufen werden. Kein Wun¬ 
der also, daß Unterprogramme noch mehr als Funktionen ein zeit- und 
platzsparendes Programmieren unterstützen. 

Unterprogramme sind also komplett in sich abgeschlossene BASIC-Pro- 
gramme, die alle Befehle und Anweisungen enthalten dürfen. Sie müssen 
allerdings mit einer RETURN-Anweisung abschließen, um nach ihrer Ab¬ 
arbeitung wieder in das Hauptprogramm zurückzuspringen. Sinnvollerweise 
setzt man sie meist an das Programmende. Das Hauptprogramm muß dann 
allerdings mit END abschließen, um nicht in das Unterprogramm hineinzu¬ 
laufen. 
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Jeder Aufruf erfolgt mit einer GOSUB-Anweisung, welcher die Zeilen¬ 
nummer folgt, mit der das Unterprogramm beginnt. Nach dem Rücksprung 
wird mit der Anweisung fortgefahren, die der GOSUB-Anweisung folgt. 
Hier ein einfaches Beispiel: 

10 REM HAUPTPROGRAMM 

20 GOSUB 100 

30 GOSUB 200 

40 GOSUB 300 

50 GOSUB 200 

60 END 

100 REM ERSTES UNTERPROGRAMM 

110 PRINT "HIER IST DAS ERSTE UNTERPROGRAMM" 

120 RETURN 

200 REM ZWEITES UNTERPROGRAMM 

210 PRINT "HIER IST DAS ZWEITE UNTERPROGRAMM" 

220 RETURN 

300 REM DRITTES UNTERPROGRAMM 

310 PRINT "HIER IST DAS DRITTE UNTERPROGRAMM" 

320 RETURN 

Nach Eingabe von RUN folgt 

HIER IST DAS ERSTE UNTERPROGRAMM 
HIER IST DAS ZWEITE UNTERPROGRAMM 
HIER IST DAS DRITTE UNTERPROGRAMM 
HIER IST DAS ZWEITE UNTERPROGRAMM 

READY. 

Zeile 20 ruft das erste Unterprogramm auf, das mit Zeile 100 beginnt. 
Nach dessen Abarbeitung fährt das Programm mit Zeile 30 fort, wo das 
zweite Unterprogramm aufgerufen wird. Das gleiche wiederholt sich in 
Zeile 40 mit dem dritten und in Zeile 50 nochmals mit dem zweiten Unter¬ 
programm. Damit das Programm anschließend abbricht, steht in Zeile 60 
die END-Anweisung. Würde sie fehlen, würde das Hauptprogramm ins 
erste Unterprogramm geraten. Da es in diesem Fall nicht durch GOSUB 
aufgerufen wurde, erscheint dann die Fehlermeldung 

7RETURN WITHOUT GOSUB ERROR IN 120 
READY. 
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4.6 Menütechnik 

Vielleicht haben Sie schon einmal mit professionellen Programmen gearbei¬ 
tet, die Sie fertig gekauft haben. Solche Programme zeichnen sich oft durch 
eine besonders gute Bedienerfreundlichkeit aus. Sie starten das Programm, 
und auf dem Bildschirm erscheinen Anweisungen, die Ihnen mitteilen, wie 
Sie das Programm nutzen können. 

Diese Anweisungen werden in der Computertechnik auch Menü genannt. 
Sie sind so abgefaßt, daß auch derjenige damit arbeiten kann, der sonst 
über keine weiteren Programmierkenntnisse verfügt. Durch Drücken be¬ 
stimmter Tasten werden einzelne Menüpunkte aufgerufen, die wiederum in 
verschiedene Teilprogramme oder untergeordnete Menüs verzweigen. Nach 
Abarbeitung der jeweiligen Teilroutinen gelangt man meistens wieder in 
das Hauptmenü zurück. 

Auch wir wollen hier ein menügesteuertes Programm betrachten, das Volu¬ 
menberechnungen für verschiedene Körper durchführt. Hier zunächst ein¬ 
mal das Programmlisting: 

10 REM DIVERSE VOLUMENBERECHNUNGEN 
20 PI = 3.14159265 
30 PRINT"<CLR>" 

40 PRINT" VOLUMENBERECHNUNG" 


50 PRINT 

60 PRINT"QUADER 1" 

70 PRINT'ZYLINDER 2" 

80 PRINT'KEGEL 3" 

90 PRINT"PYRAMIDE 4" 

100 PRINT'KUGEL 5" 

110 PRINT 

120 PRINT'E N D E E" 

130 PRINT 


140 PRINT"BITTE WAEHLEN SIE" 

150 PRINT 
160 GETKEY M$ 

170 IFM$="E" THEN END 
180 M=VAL(M$) 

190 IF M<1 OR M>5 THEN 160 

200 ON M GOSUB 250, 400, 540, 680, 820 

210 GOTO 10 

220 : 
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230 : 

240 : 

250 REM UNTERPROGRAMM FUER QUADER 
260 PRINT "QUADER" 

270 INPUT "LAENGE"; L 
280 INPUT "BREITE"; B 
290 INPUT "HOEHE"; H 
300 PRINT 
310 V=L*B*H 

320 PRINT'DAS VOLUMEN BETRAEGT"; V 
330 PRINT 

340 PRINT"WEITER, BELIEBIGE TASTE DRUECKEN" 
350 GETKEY A$ 

360 RETURN 
370 : 

380 : 

390 : 

400 REM UNTERPROGRAMM FUER ZYLINDER 
410 PRINT"ZYLINDER" 

420 INPUT "DURCHMESSER"; D 
430 INPUT "HOEHE"; H 
440 V = D*D*PI*H/4 
450 PRINT 

460 PRINT'DAS VOLUMEN BETRAEGT"; V 
470 PRINT 

480 PRINT'WEITER, BELIEBIGE TASTE DRUECKEN" 
490 GETKEY A$ 

500 RETURN 
510 : 

520 : 

530 : 

540 REM UNTERPROGRAMM FUER KEGEL 
550 PRINT'KEGEL" 

560 INPUT "DURCHMESSER"; D 
570 INPUT "HOEHE"; H 
580 V = D*D*H*PI/12 
590 PRINT 

600 PRINT'DAS VOLUMEN BETRAEGT"; V 
610 PRINT 

620 PRINT’WEITER, BELIEBIGE TASTE DRUECKEN" 
630 GETKEY A$ 

640 RETURN 
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650 : 

660 : 

670 : 

680 REM UNTERPROGRAMM FUER PYRAMIDE 
690 PRINTTYRAMIDE" 

700 INPUT'GRUNDSEITE"; L 
710 INPUT'HOEHE"; H 
720 V=L*L*H/3 
730 PRINT 

740 PRINT'DAS VOLUMEN BETRAEGT"; V 
750 PRINT 

760 PRINT"WEITER, BELIEBIGE TASTE DRUECKEN" 

770 GETKEY A$ 

780 RETURN 
790 : 

800 : 

810 : 

820 REM UNTERPROGRAMM FUER KUGEL 
830 PRINT'KUGEL" 

840 INPUT "DURCHMESSER”; D 
850 V=D*D*D/8*PI*4/3 
860 PRINT 

870 PRINT’DAS VOLUMEN BETRAEGT"; V 
880 PRINT 

890 PRINT'WEITER, BELIEBIGE TASTE DRUECKEN" 

900 GETKEY A$ 

910 RETURN 

Nachdem Sie dieses Programm gestartet haben, erscheint zunächst das Menü 
auf dem Bildschirm: 


VOLUMENBERECHNUNG 


QUADER 


ZYLINDER 

KEGEL 

PYRAMIDE 

KUGEL5 


2 

3 

4 


ENDE 


E 


BITTE WAEHLEN SIE 
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Sie haben nun die Möglichkeit, das Volumen wahlweise für Quader, Zylin¬ 
der, Kegel, Pyramide oder Kugel zu berechnen. Diese Angaben, zusammen 
mit der dazugehörigen Ziffer, nennt man Menüpunkte. Drücken Sie nun ei¬ 
ne 1, gelangen Sie in das Teilprogramm, welches das Volumen eines Qua¬ 
ders berechnet. Wenn Sie die 2 drücken, können Sie das Volumen eines 
Zylinders berechnen usw. Möchten Sie das Programm abbrechen, drücken 
Sie die Taste E. 

Uns interessiert hier in erster Linie der Aufbau dieses menügesteuerten 
Programms: 

Zunächst geben die Zeilen 10 bis 150 das Menü auf dem Bildschirm aus. 
Zeile 20 ordnet der Variablen PI den Wert 3.14159265 zu, die wir für 
Kreisberechnungen benötigen. Der 128 PC besitzt zwar auch eine Pi-Taste, 
die diesen Wert erzeugt, jedoch wollen wir es der besseren Übersichtlich¬ 
keit halber hier so belassen. Vor der Ausgabe des Menüs löscht Zeile 30 
den Bildschirm. 

Zeile 160 wartet jetzt mit GETKEY M$ auf einen Tastendruck. Dabei wird 
der Stringvariablen M$ ein Wert zugeordnet. Die IF-Anweisung in Zeile 
170 prüft nun, ob Sie ein "E" eingegeben haben, wenn Sie das Programm 
verlassen möchten. In diesem Fall wird dann die Anweisung END ausge¬ 
führt. 

Die eigentlichen Menüpunkte 1 bis 5 werden zunächst ebenfalls in der 
Stringvariablen M$ gespeichert, weil die GETKEY-Anweisung nur Strings 
annehmen kann. Für uns ist es aber wesentlich bequemer, wenn wir die 
Zahlenwerte in Fließkommaschreibweise zur Verfügung haben. Die Umfor¬ 
mung nimmt Zeile 

180 M = VAL(M$) 

vor. Enthält das Argument der VAL-Anweisung Ziffernwerte, die auch für 
numerische Werte zulässig sind, formt sie diese ins numerische Fließkom¬ 
maformat um, so daß wir mit ihnen mathematische Operationen ausführen 
können. In unserem Fall liegen nun also die eingegebenen Ziffern im 
Fließkommaformat vor und sind der Variablen M zugeordnet. 

Jedes gute Menü führt auch eine Prüfung durch, ob die eingegebenen 
Werte zulässig sind. In unserem Programm übernimmt dies Zeile 190: 


190 IF M<1 OR M>5 THEN 160 
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Die IF-Anweisung fragt, ob der Variablenwert M kleiner als 1 oder größer 
als 5 ist, denn wir können hier ja nur die Menüpunkte 1 bis 5 verarbeiten. 
Ist eine dieser beiden Bedingungen erfüllt (Boolsche Operation OR), springt 
das Programm wieder zurück in Zeile 160 zur GETKEY-Anweisung und 
erwartet einen neuen Tastendruck. Dieser Vorgang ist von außen her nicht 
sichtbar. Drücken Sie nämlich eine falsche Taste, geschieht scheinbar gar 
nichts, denn das Programm hängt in einer Warteschleife. 

Sämtliche Teilprogramme, die die einzelnen Volumenberechnungen durch¬ 
führen, sind hier als Unterprogramme definiert und schließen deshalb je¬ 
weils mit einer RETURN-Anweisung ab. Ihr eigentlicher Aufbau braucht 
uns an dieser Stelle nicht weiter zu interessieren, denn solche Programme 
haben wir in ähnlicher Form schon kennengelernt. Der besseren Übersicht 
halber haben wir die einzelnen Programmsegmente durch bedeutungslose 
Leerzeichen unterteilt, die nur aus der Zeilennummer und einem Doppel¬ 
punkt bestehen. 

Was uns aber interessiert, ist die Art und Weise, wie die Teilprogramme 
aufgerufen werden. Wir wissen bereits, daß die GOSUB-Anweisung ein 
Unterprogramm aufruft und dieses nach der Ausführung wieder an die 
Auf ruf stelle zurückkehrt. In Zeile 200 finden wir GOSUB in einer anderen 
Form vor: 

200 ON M GOSUB 250, 400, 540, 680, 820 

Nun wird uns auch klar, warum wir die Zahlenwerte ins numerische For¬ 
mat umgewandelt haben. Diese Anweisung fragt nämlich den Wert der 
Fließkommavariablen M ab und entscheidet dann aufgrund dieses Wertes, 
welches Unterprogramm aufgerufen wird: 

Wert von M Unterprogramm ab Zeile 


250 

400 

540 

680 

820 


2 

3 

4 

5 


Somit entspricht also die erste Zahl hinter ON M GOSUB der Zeile, die 
aufgerufen wird, wenn M den Wert 1 erhält, die zweite, wenn M den Wert 
2 erhält usw. Dasselbe hätten wir auch mit folgenden 5 IF-Anweisungen 
erreicht: 
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IF M = 1 THEN GOSUB 250 
IF M = 2 THEN GOSUB 400 
IF M = 3 THEN GOSUB 540 
IF M = 4 THEN GOSUB 680 
IF M = 5 THEN GOSUB 820 

Wir sehen aber, daß die ON...GOSUB-Anweisung bequemer zu program¬ 
mieren ist und weniger Speicherplatz beansprucht. 

Nach Abarbeitung der einzelnen Unterprogramme springt die GOTO-An- 
weisung in Zeile 210 wieder an den Programmanfang und gibt das Menü 
erneut aus. 

In diesem Zusammenhang sei noch erwähnt, daß es für GOTO die ähnliche 
Anweisung ON...GOTO gibt. Hier ein Beispiel: 

100 ON A GOTO 100, 200, 300 

Ist der Inhalt der Variablen A gleich 1, findet ein Sprung in Zeile 100 statt, 
ist er gleich 2, wird in Zeile 200 gesprungen usw. 


4.7 Fehlersuche und Fehlerbehandlung 

In diesem Abschnitt wollen wir uns mit der Fehlersuche und der Fehler¬ 
behandlung beschäftigen. Jeder Programmierer, selbst der erfahrenste, 
bringt kaum ein Programm zustande, das auf Anhieb fehlerfrei läuft. Dabei 
nimmt die Wahrscheinlichkeit, daß Fehler auftreten, bei längeren und kom¬ 
plizierteren Programmen zu und es wird immer schwieriger, die Fehler zu 
lokalisieren. 

Viele Fehler entstehen aus Unachtsamkeit bei der Programmierung. So wird 
z.B. ein Variablenname oder Schlüsselwort falsch geschrieben oder eine 
Zahl falsch eingegeben. Wie beim legendären zerstreuten Professor hat 
schon mancher A gesagt, B geschrieben, C gedacht und in Wirklichkeit war 
D gemeint. Manch einer war bereits nahe daran, seine Nerven zu verlieren, 
wenn ein Programm nicht so ablief, wie er es wollte. 

Wir können aber lernen, auf die richtige Weise mit den Fehlern umzugehen 
oder besser noch, sie von vornherein zu vermeiden. So gibt es verschiedene 
Arten von Fehlern, die wir im folgenden kurz betrachten wollen. 



108 


4 Programmaufbau und Fehlerbehandlung 


Da sind einmal die Leichtsinnsfehler, die durch mangelnde Konzentration 
oder Unachtsamkeit entstehen. Subtilere und deshalb gewöhnlich schwer¬ 
wiegendere Fehler sind solche, die auf mangelndem Verständnis für die 
Arbeitsweise von bestimmten Anweisungen beruhen, die dem Computer er¬ 
teilt werden. Oft wird verkannt, daß eine bestimmte Situation auf treten 
kann, die es gilt, in den Griff zu bekommen. Irren ist menschlich und ein 
Programmierer ist ein Mensch, der Computer dagegen nicht. 

Als weiteres gibt es solche Fehler, die nicht auf menschlichem Irrtum 
beruhen und bei der Programmerstellung bewußt mit eingeplant werden. 
Komfortablere Anwenderprogramme enthalten z.B. oft Anweisungen, die 
feststellen sollen, ob. ein Peripheriegerät, wie Drucker oder Floppy, 
eingeschaltet ist. Ist dies nämlich nicht der Fall, gibt der Computer eine 
Fehlermeldung aus, die abgefragt wird, um eventuell geeignete Gegenmaß¬ 
nahmen zu ergreifen. Bei nicht eingeschaltetem Drucker könnte dies so 
aussehen, daß der Bediener aufgefordert wird, das Gerät einzuschalten. 

Derartige Maßnahmen werden derweilen noch drastischer praktiziert. Viele 
Softwareanbieter möchten nämlich nach Möglichkeit verhindern, daß ihre 
Programme auf Diskette unzulässigerweise vervielfältigt werden. Dazu brin¬ 
gen sie auf der Diskette extra Fehler an. Wird nun versucht, dieses Pro¬ 
gramm zu kopieren und "normal" zu starten, ist es nicht lauffähig, da 
bestimmte eingebaute "Fehler" nicht vorhanden sind, die aber zur einwand¬ 
freien Arbeitsweise des Programms unbedingt erforderlich sind. Im Ex¬ 
tremfall kann in einer solchen Situation die Diskette sogar zerstört werden. 

Eine Grundvoraussetzung zur Vermeidung von Fehlern ist eine klare Ziel¬ 
setzung von dem, was ein Programm alles ausführen soll. Viele Program¬ 
mierer verwenden zur Planung spezielle Fluß- oder Ablaufdiagramme, die 
jede einzelne Anweisung enthalten. Wir wollen hier wegen unserer relativ 
einfachen Beispiele auf derartige Diagramme verzichten, es aber dennoch 
nicht versäumen, ein Konzept aufzustellen. Betrachten wir hierzu nochmals 
das Programm, das für fünf verschiedene Körper das Volumen berechnet. 
Das Konzept dazu könnte folgendermaßen aussehen: 

1. Zielsetzung: Was für ein Programm will ich schreiben? Zu welchem 

Zweck möchte ich es einsetzen? 

Antwort: Ich wünsche ein Programm, das das Volumen von Quadern, 

Zylindern, Kegeln, Pyramiden und Kugeln berechnet. 
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2. Aufbau: Aus welchen Teilelementen soll sich das Programm zusam- 


mensetzen? 


Antwort: 

Eingabemenü 

Unterprogramm für Quader 

Unterprogramm für Zylinder 

Unterprogramm für Kegel 

Unterprogramm für Pyramide 

Unterprogramm für Kugel 


3. Detaillierte Ausarbeitung für jedes Teilelement: 


Eingabemenü: 

Bildschirm löschen 

Menüpunkte ausgeben 

Menüpunkte abfragen 

Gewähltes Unterprogramm ausführen 

Zurück ins Eingabemenü 

Unterprogramm 
für Quader: 

Meldung "Quader" ausgeben 

Eingabewerte lesen (Länge, Breite, Höhe) 

Volumen berechnen 

Volumen ausgeben 

Warteschleife auf Tastendruck 

Rückkehr ins Hauptprogramm 


Auf die Ausarbeitung der anderen Unterprogramme wollen wir hier ver¬ 
zichten, da sie ähnlich aufgebaut sind. 

Nun können wir uns an den Computer setzen, geeignete Anweisungen wäh¬ 
len und schließlich das Programm eingeben. Bevor wir es ablaufen lassen, 
speichern wir es sicherheitshalber auf Diskette oder Kassette ab. 

Wir haben das Programm zwar jetzt im Computer, aber mit hoher Wahr¬ 
scheinlichkeit läuft es noch nicht fehlerfrei. Dank unseres strukturierten 
Aufbaus sind wir aber in der Lage festzustellen, in welchem Teilprogramm 
ein Fehler auftritt. 


Häufig haben wir die Schreibregeln für die BASIC-Programmiersprache 
verletzt. In einem solchen Fall erscheint die Fehlermeldung 
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7SYNTAX ERROR IN (Zeilennummer) 

READY. 

und das Programm bricht ab. Nun können wir die fehlerhafte Zeile listen 
und korrigieren. Wird anschließend die HELP-Taste gedrückt, erscheint 
zusätzlich die falsche Anweisung in reverser Darstellung. Diese Taste kann 
im Anschluß an jede Fehlermeldung gedrückt werden. 

Manchmal ist es sinnvoll, das Programm an bestimmten Stellen an-zuhalten, 
um den Inhalt einiger Variablen zu überprüfen. Gibt z.B. das Unterpro¬ 
gramm für Quader ein falsches Ergebnis aus, fügen wir folgende Zeile ein, 
die wir später wieder löschen: 

315 STOP 

Das Programm hält jetzt jedesmal in Zeile 315 an und meldet sich mit 

BREAK IN 315 
READY. 

Nun können wir prüfen, ob die Variablen L, B, H und V die richtigen 
Werte oder Zwischenergebnisse enthalten. Dies geschieht ganz normal mit 
der PRINT-Anweisung im Direktmodus. Wir können uns aber Tipparbeit 
sparen, indem wir statt PRINT nur ein Fragezeichen setzen, z.B. 

? V 
5.6 

READY. 

Wurde ein Programm mit BREAK unterbrochen, kann es mit 
CONT 

fortgesetzt werden. In unserem Fall würde es dann mit Zeile 320 fort¬ 
fahren. CONT funktioniert allerdings nicht, wenn bei der Unterbrechnung 
Änderungen im Programm vorgenommen wurden. Dann nämlich erscheint 
die Fehlermeldung 

?CAN’T CONTINUE ERROR 
READY. 
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4.7.1 Ablaufverfolgung 

Eine zusätzliche Hilfe zur Auffindung von Fehlern ist die Ablauf Verfol¬ 
gung. Ist sie eingeschaltet, erscheinen beim Programmablauf die Nummern 
der gerade abgearbeiteten Zeilen auf dem Bildschirm. Die Ablaufverfolgung 
ist eine große Hilfe, wenn festgestellt werden soll, ob Programmverzwei¬ 
gungen richtig funktionieren. Jeder Fehler kann dann anhand der ausge¬ 
gebenen Zeilennummern sofort festgestellt werden. 

Die Ablaufverfolgung wird mit 

TRON 

eingeschaltet, worauf das Programm normal mit RUN zu starten ist. 

TROFF 

schaltet sie wieder ab. TRON und TROFF können aber auch in Programme 
eingebaut und somit im Programmodus betrieben werden. 


4.7.2 Programmierte Fehlerbehandlung 

Hier behandeln wir nun die Fehler, die bewußt mit eingeplant werden. 
BASIC 7.0 stellt uns Anweisungen zur Verfügung, mit der wir Fehler auf¬ 
fangen und bearbeiten können. Dies geschieht zunächst einmal mit der 
TRAP-Anweisung, der eine Zeilennummer folgt. Tritt nun ein Fehler auf, 
springt das Programm in diese Zeile und führt dann die Fehlerbehandlung 
durch. Anschließend kehrt RESUME wieder an die Stelle zurück, an der 
die Fehlermeldung auftrat. 

Für den Einsatz der TRAP-Anweisung gibt es viele Anwendungsbereiche. 
So kann das Programm z.B. feststellen, ob während einer Berechnung 
Ergebnisse auftreten, die größer als der zulässige Wertebereich von ca. 
1E+38 sind oder ob die Quadratwurzel aus einem negativen Wert gezogen 
werden soll. 

Im Normalfall bricht das Programm bei Auftreten eines Fehlers ab und gibt 
eine entsprechende Fehlermeldung aus. Bei früheren BASIC-Versionen war 
es oft ärgerlich, wenn Programme mit langer Laufzeit aufgrund von Feh¬ 
lern plötzlich abbrachen und nach deren Behebung neu gestartet werden 
mußten. Stellen Sie sich einmal vor. Sie arbeiten mit einem riesigen 
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Adressenverwaltungsprogramm, lesen Hunderte von Adressen von der Dis¬ 
kette ein, schreiben neue Adressen hinzu und wollen schließlich die ge¬ 
samte Liste ausdrucken. Aber leider haben Sie vergessen, den Drucker 
einzuschalten, das Programm bricht ab und gibt die Fehlermeldung 

7DEVICE NOT PRESENT ERROR IN (Zeilennummer) 

aus. Ein nachträgliches Einschalten des Druckers nützt nichts, die ganze 
Arbeit war umsonst und Sie müssen von vorne beginnen. 

Um Ihnen solche frustrierenden Enttäuschungen in Zukunft zu ersparen, 
haben wir hier ein kleines Programm, das abfragt, ob der Drucker ein¬ 
geschaltet ist. Die darin enthaltenen Anweisungen können in jedes andere 
Programm übernommen werden. 

10 REM ABFRAGE, OB DRUCKER EINGESCHALTET 
20 TRAP 100 
30 OPEN4,4,0," " 

40 PRINT "DRUCKER EINGESCHALTET" 

50 CLOSE 4 
60 END 
70 : 

80 : 

90 : 

100 REM FEHLERBEHANDLUNGSROUTINE 
110 CLOSE4 

120 PRINT ER;ERR$(ER);" ERROR";" IN ZEILE";EL 
130 PRINT’BITTE DRUCKER EINSCHALTEN UND" 

140 PRINT’BELIEBIGE TASTE DRUECKEN" 

150 GETKEY A$ 

160 RESUME 

Zeile 20 enthält die TRAP-Anweisung mit der Zeilennummer 100. Tritt 
nun ein Fehler auf, was in diesem Fall bedeutet, daß der Drucker nicht 
eingeschaltet ist, verzweigt das Programm in Zeile 100. Ist der Drucker 
dagegen eingeschaltet, findet keine Verzweigung statt und das Programm 
läuft normal weiter. In unserem Fall erscheint dann die Bestätigung 
"DRUCKER EINGESCHALTET" auf dem Bildschirm. 

In der Fehlerbehandlungsroutine schließt Zeile 110 das noch geöffnete lo¬ 
gische File. Zeile 120 enthält nun die reservierten Variablennamen ER, 
ERR$(ER) und EL. Dabei enthält ER die interne Nummer des Fehlers, 
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ERR$(ER) die Fehlermeldung im Klartext und EL die Nummer der Zeile, 
in der der Fehler auf trat. Diese Werte geben wir nun in übersichtlicher 
Form in einer PRINT-Anweisung aus, so daß im Falle des nicht einge¬ 
schalteten Druckers die Meldung 

5 DEVICE NOT PRESENT ERROR IN ZEILE 30 

erscheint. Dabei gibt die 5 am Zeilenanfang an, daß wir es hier mit dem 
Fehler Nr. 5 zu tun haben (DEVICE NOT PREDENT). 

Statt dieser Meldung hätten wir auch eine beliebige andere oder gar keine 
Meldung ausgeben können. Die im Normalfall, also ohne TRAP-Anweisung 
entstehende Fehlermeldung, die einen Programmabbruch zur Folge hat, er¬ 
scheint hier also nicht automatisch. 

Am Schluß der Fehlerbehandlungsroutine werden Sie aufgefordert, den 
Drucker einzuschalten und dann eine beliebige Taste zu drücken 
(GETKEY-Anweisung). Die Routine schließt mit 

160 RESUME 

ab, was bedeutet, daß die Steuerung an die Stelle zurückgegeben wird, an 
der der Fehler auftrat. Dabei wird die gleiche Anweisung, die den Fehler 
verursachte, nochmals ausgeführt. In unserem Fall ist es die OPEN-An- 
weisung, die den Ausgabekanal zum Drucker öffnet. 

Von RESUME gibt es noch zwei weitere Varianten. Wenn es nicht wün¬ 
schenswert ist, die fehlerverursachende Anweisung nochmals auszuführen, 
geben Sie 

RESUME NEXT 

an. Dabei fährt das Programm erst mit der nächstfolgenden Anweisung fort. 
Darüberhinaus besteht aber auch die Möglichkeit, das Programm im An¬ 
schluß an die Fehlerbehandlung an einer beliebigen anderen Stelle 
fortzusetzen. Zu diesem Zweck ist hinter RESUME die Nummer der Zeile 
anzugeben, in die gesprungen werden soll, z.B.: 

RESUME 1000 

Abschließend noch ein wichtiger Hinweis, der nicht in allen Handbüchern 
und Beschreibungen enthalten ist. Denjenigen Lesern, die bereits über Pro- 



114 


4 Programmaufbau und Fehlerbehandlung 


grammierkenntnisse verfügen, ist vielleicht aufgefallen, daß wir in unserem 
Beispiel die sehr ungewöhnliche Anweisung OPEN 4,4,0," " zum Öffnen des 
Druckerkanals benutzt haben. Die sonst übliche und meist völlig ausrei¬ 
chende Anweisung OPEN 4,4 erzeugt bei ausgeschaltetem Drucker keine 
Fehlermeldung und führt auch zu keinem Programmabbruch. Einerseits 
mag dies erfreulich erscheinen, andererseits aber ist für diese OPEN-An¬ 
weisung auch keine Fehlerbehandlung möglich und unser Programm gibt 
bei ausgeschaltetem Drucker die Meldung "DRUCKER EINGESCHALTET" 
aus. Achten Sie bitte bei derartigen Abfragen darauf, daß eine Sekun¬ 
däradresse und ein Filename mit mindestens einem Zeichen in der OPEN- 
Anweisung angegeben ist. 
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In den vergangenen Kapiteln haben wir nur mit relativ kleinen Datenmen¬ 
gen gearbeitet, die wir über die INPUT-Anweisung oder über DATA-Zei- 
len ins Programm eingelesen haben. Zu Übungszwecken mag dies für Sie 
vielleicht ganz interessant gewesen sein, zum Aufbau einer professionellen 
Dateiverwaltung gehört jedoch noch einiges mehr. 

Programme, die große Datenmengen verarbeiten, nennt man Datenverarbei- 
tungs- oder Datenerfassungsprogramme. Sie arbeiten meist mit einem Mas¬ 
senspeicher, der in vielen Fällen aus einem oder mehreren Floppylaufwer¬ 
ken, oft aber auch aus einer Festplatte besteht, die weitaus mehr Daten als 
eine Diskette aufnehmen kann. 

Um ein "echtes" Datenerfassungsprogramm zu schreiben, reicht aber unser 
bisheriges Wissen noch nicht aus; dazu benötigen wir weitere Kenntnisse 
und Erfahrungen, die in diesem Kapitel behandelt werden. Den Massen¬ 
speicher wollen wir vorläufig allerdings nicht berücksichtigen, sondern uns 
statt dessen zur Eingabe von Daten weiterhin noch mit DATA-Zeilen be¬ 
gnügen. 

Auf den folgenden Seiten finden sie alles, was Sie zu einer Listen- oder 
Tabellenverarbeitung benötigen. Zunächst lernen wir verschiedene String¬ 
verarbeitungstechniken und die formatierte Ausgabe kennen. Anschließend 
befassen wir uns mit Feldern, die eine Vielzahl von Datenelementen enthal¬ 
ten können und die einen wichtigen Platz in der Datenverarbeitung einneh¬ 
men. Nicht zu kurz kommt dabei auch das Auffinden und Sortieren von 
Daten, die in Feldern abgelegt sind, wodurch die Datenverarbeitung erst 
richtig interessant wird. 
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5.1 Stringmanipulationen 

In den vergangenen Kapiteln haben wir bereits wiederholt mit Strings gear¬ 
beitet. Wir wissen, daß sie einen gesonderten Datentyp darstellen und daß 
Stringvariablen Zeichenketten enthalten, die in der Regel aus ASCII-Zei- 
chen bestehen. 

Allerdings ist uns noch wenig über Anweisungen bekannt, die Stringmani¬ 
pulationen durchführen, d.h. Strings aneinanderreihen, trennen oder in son¬ 
stiger Weise beeinflussen. 

Gegenüber der reinen Zahlenverarbeitung bringt die Stringverarbeitung 
eine gewisse Problematik mit sich. Wir kennen bereits die drei Datentypen 
Fließkomma, Integer und String. Fließkomma- und Intergerzahlen benöti¬ 
gen immer die gleiche Menge an Speicherplatz. Ändert sich ihr Variablen¬ 
wert, so wird der alte Wert einfach von dem neuen überschrieben. Aus 
diesem Grund können numerische Variablen während des Programmablaufs 
immer an der gleichen Stelle im Speicher plaziert sein. 

Bei Strings ist dies anders, da sie verschiedene Längen annehmen können. 
Ein String im Commodore BASIC kann beispielsweise zwischen 0 und 255 
Zeichen enthalten. 

Dies wäre unerheblich, wenn am Anfang des Programms die jeweiligen 
Stringvariablen eine feste Länge erhielten, die dann, wie bei den nume¬ 
rischen Variablen, während des gesamten Programmablaufs konstant bleibt. 

Wie wir jedoch gleich sehen werden, können die Längen der Stringvaria¬ 
blenwerte sich ständig verändern. Betrachten wir dazu ein einfaches Bei¬ 
spiel: 


10 INPUT "BITTE EIN NETTES WORT EINGEBEN"; A$ 

20 PRINT A$ 

30 PRINT "DANKESCHOEN!” 

40 GOTO 10 

Dieses Programm hängt in einer Schleife und fordert Sie jedesmal erneut 
auf, ein nettes Wort einzugeben. Dies geschieht mit der INPUT-Anweisung 
in Zeile 10, wo der eingegebene String der Variablen A$ zugeordnet wird. 
Lassen wir jetzt das Programm einmal ablaufen: 
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BITTE EIN NETTES WORT EINGEBEN? HI! 

HI! 

DANKESCHOEN 

BITTE EIN NETTES WORT EINGEBEN? GUTEN MORGEN! 
GUTEN MORGEN! 

DANKESCHOEN 

BITTE EIN NETTES WORT EINGEBEN? HALLO - WIE GEHT’S? 
HALLO - WIE GEHT’S? 

DANKESCHOEN 

usw. 

Im ersten Durchgang wurde das Wort "HI!" eingegeben, das insgesamt drei 
Zeichen umfaßt, im zweiten das Wort "GUTEN MORGEN!" mit 13 Zeichen 
und schließlich "HALLO - WIE GEHT’S?" mit 19 Zeichen. Die Länge des 
Variableninhalts von A$ ändert sich also ständig. 

Um dieses Problem in den Griff zu bekommen, haben sich die Erfinder des 
BASIC-Interpreters etwas einfallen lassen. Im Speicher befindet sich eine 
sogenannte Variablentabelle, in der alle Variablen, gleich welchen Typs, 
eingetragen sind. Da numerische Variablen immer den gleichen Speicher¬ 
platz benötigen, sind ihre Werte gleich mit in der Variablentabelle enthal¬ 
ten. Für Stringvariablen ist in der Tabelle lediglich ein Zeiger enthalten, 
der die Länge und die Anfangsadresse des Strings im Speicher enthält. Die 
Werte von Stringvariablen füllen den noch freien Speicher von oben nach 
unten, d.h. von der höchsten zur niedrigsten nicht anderweitig belegten 
freien Adresse, auf. 

Wird nun eine neue Stringvariable angelegt, so füllt ihr Wert immer mehr 
den Speicher nach unten hin auf. Das gleiche geschieht auch mit der Varia¬ 
blen A$ in unserem Programm, wenn sie einen neuen Wert erhält. Dabei 
wird der Zeiger, auch Descriptor genannt, auf den neuen Wert gesetzt. Der 
alte Wert von A$ wird also nicht überschrieben und bleibt als "Stringmüll" 
zurück. 

Es ist daher einleuchtend, daß Programme, die viele Strings erzeugen oder 
umändern, den Speicherplatz immer mehr nach unten hin auffüllen und 
gleichzeitig eine Menge "Stringmüll" nicht mehr benötigter Strings zurück¬ 
lassen. Irgendwann ist dann der Zeitpunkt gekommen, daß es so nicht mehr 
weitergehen kann. 
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Diejenigen Leser, die bereits mit dem Commodore 64 gearbeitet haben, 
haben vielleicht schon einmal bemerkt, daß der C-64 mitten in einem Pro¬ 
gramm plötzlich für einige Sekunden seine Arbeit unterbricht. Dies ge¬ 
schieht besonders bei solchen Programmen, die viel mit Strings arbeiten. 

In dieser Pause führt der Computer eine Stringmüllbeseitigung (garbage 
collect) durch. Dabei werden alle Strings, die noch gültig, d.h. in der Va¬ 
riablentabelle auf geführt sind, nach oben hin neu geordnet und aneinander¬ 
gefügt, damit wieder genügend Platz für neue Strings frei wird. 

Je nach Anzahl der sich im Speicher befindlichen Strings ist die Stringmüll¬ 
beseitigung eine Frage der Zeit. Während sie beim C-64 noch relativ lange 
dauerte, braucht sie beim 128 PC höchstens eine Sekunde. Der 128 PC ver¬ 
waltet nämlich die Strings auf eine andere Weise als der C-64, um dem 
Zeitproblem bei der Stringmüllbeseitigung Rechnung zu tragen. 

Eine Stringmüllbeseitigung wird umso seltener auftreten, je größer der 
BASIC-Speicher ist und umso weniger Platz das Programm einschließlich 
der Variablentabelle benötigt. Beim 128 PC ist der BASIC-Speicher darüber 
hinaus noch in zwei feste Hauptteile unterteilt, nämlich in den Programm¬ 
und in den Variablenspeicher. Der Variablenspeicher umfaßt ca. 64KB und 
ist um einiges größer als der Gesamt-BASIC-Speicher des C-64. 

Während man bei früheren Commodore-Rechnern mit der FRE-Anweisung 
die Stringmüllbeseitigung künstlich hervorrufen und den noch freien Spei¬ 
cherplatz bestimmen konnte, ist dies beim 128 PC nur bedingt möglich. 
Wenn Sie hier 

?FRE(0) 

eingeben, sagt Ihnen der Computer, wieviele Bytes im Programmspeicher 
noch frei sind. Er gibt jedoch keine Auskunft über den noch freien Platz 
im Variablenspeicher. Sie sehen dies besonders deutlich, wenn Sie bereits 
gleich nach dem Einschalten den noch freien Speicherplatz abfragen: 

?FRE(0) 

58109 


READY. 
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Die Zahl 58109, die Sie hier erhalten, entspricht exakt der Größe des Pro¬ 
grammspeichers, während Ihnen die Einschaltmeldung sagt, daß insgesamt 
122365 Bytes für Programm- und Variablenspeicher zur Verfügung stehen. 


5.1.1 Stringverkettung 

Das Pluszeichen dient in BASIC nicht nur zur Addition von Zahlenwerten 
oder als Vorzeichen, sondern auch zur Verkettung von Strings. Somit ist es 
möglich, aus Einzelstrings einen Gesamtstring zu erzeugen, der allerdings 
nicht mehr als 255 Zeichen enthalten darf. Hier ein Beispiel: 

10 A$ = "COMMODORE" 

20 B$ = "128" 

30 C$ = "PERSONAL" 

40 D$ = "COMPUTER" 

50 G$ = A$ + B$ + C$ + D$ 

60 PRINT G$ 

Nach Eingabe von RUN erscheint: 

COMMODORE 128PERSONALCOMPUTER 
READY. 

Hier wurde aus den vier Einzelstrings A$, B$, C$ und D$ der Gesamtstring 
G$ gebildet. In der vorliegenden Form sollten wir ihn aber nicht belassen 
und deshalb Leerzeichen zwischen die einzelnen Wörter setzen. Aus diesem 
Grunde schreiben wir Zeile 50 etwas um: 

50 G$ = A$ + " " + B$ + " " + C$ + " " + D$ 

Jetzt erscheint G$ in übersichtlicher Form: 

COMMODORE 128 PERSONAL COMPUTER 


READY. 
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5.1.2 LEN 

Mit LEN können Sie die Länge eines Strings bestimmen. Als Beispiel wol¬ 
len wir nochmals unser letztes Programm betrachten. Nachdem Sie es aus¬ 
geführt haben, also sämtliche Variablen angelegt sind, geben Sie folgendes 
ein (statt PRINT setzen wir hier ein Fragezeichen): 

? LEN(G$) 

31 

READY. 

? LEN(A$) 

9 

READY. 

Wir haben soeben die Längen der Strings G$ und A$ bestimmt. Der Ge¬ 
samtstring G$ ist 31 Zeichen, der String A$ 9 Zeichen lang. 

Die LEN-Anweisung sollten Sie immer dann verwenden, wenn es darum 
geht, die Länge von Strings zu prüfen. Dies kann besonders bei Program¬ 
men mit vielen Stringoperationen der Fall sein. 

Beim Versuch, einen String mit mehr als 255 Zeichen Länge zu erzeugen, 
entsteht die Fehlermeldung 

7STRING TOO LONG ERROR IN (Zeilennummer) 


5.1.3 LEFT$ und RIGHTS 
Betrachten wir folgendes Beispiel: 
A$ = "ABCDEFGHIJKLMN" 


READY. 
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? LEFT$(A$,5) 

ABCDE 

READY. 

? RIGHT$(A$,3) 

LMN 

READY. 

Damit erklären sich die Anweisungen LEFT$ und RIGHTS eigentlich schon 
von selbst. So erzeugt LEFT$(A$,X) einen neuen String, der aus den ersten 
X Zeichen des Strings A$ besteht. Bei RIGHT$(A$,X) entsteht ebenfalls 
ein neuer String, der aber die rechten X Zeichen des Strings A$ enthält. 


5.1.4 MID$ 

MID$(A$,X,Y) erzeugt einen String aus AS, der bei der Position X beginnt 
und Y Zeichen lang ist. Auch hierzu ein Beispiel: 

AS = "ABCDEFGHIJKLMN" 

READY. 

? MID$(A$,8,7) 

HIJKLMN 

READY. 

Hier wird aus dem String AS ein neuer String gebildet, der mit dem 8. Zei¬ 
chen beginnt und 7 Zeichen lang ist. 

MID$ kann aber auch in umgekehrter Weise Verwendung finden, indem 
wir in einen gegebenen einen neuen String einsetzen. Hier ein Beispiel. 

_ *********************M 


READY. 
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MID$(A$,8,6) = "HALLO!" 
READY. 

? A$ 

♦****** hall0! ******* 


READY. 

In diesem Fall wird der String "HALLO!" in den String A$ eingesetzt und 
erscheint dort ab dem 8. Zeichen. 

Bei allen Stringoperationen ist es egal, ob die Strings als Konstante oder 
Variable vorliegen. Im letzen Beispiel hätten wir auch den String "HALLO!" 
der Variablen C$ zuordnen und den Inhalt von A$ ausschreiben können: 

MID$("********************",8,6) = C$ 


5.1.5 INSTR 

Mit dieser Anweisung ist es möglich, einen String in einem anderen String 
zu suchen, und dessen Position anzugeben, z.B.: 

A$ = "MARKT & TECHNIK - VERLAG" 

READY. 

B$ = "TECHNIK" 

READY. 

? INSTR(A$,B$) 

9 

READY. 

Hier wird untersucht, ob der String B$ im String A$ enthalten ist. Dies ist 
tatsächlich der Fall, denn das Wort "TECHNIK" beginnt ab Position 9 des 
Strings A$. Ist der gesuchte String dagegen nicht enthalten, erscheint das 
Ergebnis 0. 
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5.1.6 STR$ und VAL 

STR$ wandelt einen numerischen Wert in einen String um: 

A = 1000 

READY. 

S$ = STR$(A) 

READY. 

? S$ 

1000 

READY. 

? LEN(S$) 

5 

READY. 

Hier haben wir den numerischen Wert 1000, der in der Variablen A abge¬ 
legt ist, in einen String mit dem Namen S$ umgewandelt. Nach außen hin 
macht es keinen Unterschied, ob wir die Zahl 1000 als String oder als 
numerische Variable auf dem Bildschirm ausgeben. 

Mit Hilfe von LEN stellen wir fest, daß S$ 5 Zeichen lang ist, obwohl die 
Zahl 1000 nur 4 Ziffern besitzt. Dies hat durchaus seine Richtigkeit, denn 
die STR$-Anweisung reserviert immer eine Stelle für das Vorzeichen. Ist 
das Vorzeichen negativ, erscheint vorne ein Minuszeichen, ist es dagegen 
positiv, erscheint ein Leerzeichen (Blank). 

VAL ist die Umkehrfunktion von STR$ und formt einen als String einge¬ 
gebenen Zahlenwert ins Fließkommaformat um. Hierzu ein Beispiel: 

10 INPUT "l.ZAHL"; A$ 

20 INPUT "2.ZAHL"; B$ 

30 A = VAL(A$) 

40 B = VAL(B$) 

50 PRINT A * B 
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Ein Probelauf liefert 

1. ZAHL? 5 

2. ZAHL? 4 
20 

READY. 

In diesem Programm haben wir die beiden Operanden in Form von Strings 
eingegeben. Um mit ihnen mathematische Operationen ausführen zu kön¬ 
nen, müssen sie zunächst einmal ins Fließkommaformat umgewandelt wer¬ 
den. Dies geschieht in Zeile 30 und 40, so daß Zeile 50 schließlich die 
Multiplikation ausführen kann. 


5.1.7 CHR$ und ASC 

Sämtlichen Zeichen, einschließlich den unsichtbaren Steuerzeichen, ist in¬ 
tern ein äquivalenter Zifferncode zugeordnet, den man auch ASCII-Code 
nennt. Wir wollen jetzt einmal versuchen, diesen Code dem Computer zu 
entlocken: 

? ASC ("A") 

65 

READY. 

? ASC ("B") 

66 

READY. 

? ASC ("Z") 

90 

READY. 

Wir haben dazu die ASC-Anweisung benutzt, die zu jedem Buchstaben den 
entsprechenden ASCII-Code erzeugt. Ohne diese Prozedur nun für alle 26 
Buchstaben durchführen zu müssen, können wir uns leicht vorstellen, daß 
der Buchstabe C den Code 67, D den Code 68 und Y den Code 89 besitzt. 
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Diese Codes wollen wir nun dazu verwenden, das Alphabet in etwas unge¬ 
wöhnlicher Form auf dem Bildchirm auszugeben: 

10 REM AUSGABE DES ALPHABETS 
20 FOR I = 65 TO 90 
30 PRINT CHR$(I); 

40 NEXT 

Nach RUN erscheint: 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

READY. 

Dieses Programm enthält die CHR$-Anweisung, die aus den ASCII-Codes 
die entsprechenden lesbaren Zeichen erzeugt. 

Wir wissen bereits, daß Anführungszeichen einen String abgrenzen, aber 
daß sie sonst nie in ihm enthalten sein dürfen. Es gibt jedoch einen Trick, 
dies doch zu ermöglichen, denn das Anführungszeichen entspricht dem 
ASCII-Code 34: 

10 A$ = "SIE SAGTE "+CHR$(34)+"GUTEN MORGEN!"+CHR$(34) 

20 PRINT A$ 

Nach der Ausführung erscheint 

SIE SAGTE "GUTEN MORGEN!" 

READY. 

Sie sehen also, daß Sie auch "unzulässige" Zeichen mit CHR$ erzeugen 
können. 

Abschließend noch ein String, der Sie verblüffen wird. 

10 A$ = "ERSTE ZEILE"+CHR$( 13)+"ZWEITE ZEILE" 

20 PRINT A$ 
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Nach der Ausführung erscheint: 

ERSTE ZEILE 
ZWEITE ZEILE 

READY. 

Dieser String wird also in zwei Zeilen untereinander ausgegeben. Dies liegt 
an dem ASCII-CODE 13, der einen Wagenrücklauf und Zeilenvorschub 
veranlaßt (Carriage Return). Wenn Sie diesen Code in Form von CHR$(13) 
ausgeben, geschieht dasselbe wie beim Drücken der RETURN-Taste. 


5.1.8 Interne Uhr 

Als letzte Stringanweisung wollen wir hier TI$ behandeln. TI$ ist ein reser¬ 
vierter Variablenname und dient zur Abfrage der internen Uhr. Wenn wir 
die interne Uhr stellen, müssen wir TIS einen sechsstelligen Ziffernwert 
zuordnen. Dabei stehen die beiden ersten Ziffern für die Stunden, die 
beiden mittleren für die Minuten und die beiden rechten für die Sekunden. 
Nachfolgend nun ein Programm, das eine Digitaluhr simuliert: 

10 REM DIGITALUHR 

20 INPUT "BITTE UHRZEIT EINGEBEN"; TIS 
30 PRINT "<CLR>" 

40 TIS = LEFT$(TI$,2) 

50 T2$ = MID$(TI$,3,2) 

60 T3S = RIGHT$(TI$,2) 

70 PRINT "ES IST JETZT"; 

80 PRINT TIS;" UHR ";T2$;" MIN. ";T3$;" SEK."; 

90 PRINT "<1 x CRSR UP>" 

100 GOTO 40 

In Zeile 20 geben Sie die augenblickliche Uhrzeit ein, um die Uhr zu 
stellen. Dabei müssen Sie unbedingt 6 Ziffern eingeben, da sonst ein 
7ILLEGAL QUANTITY ERROR auftritt. Hier einige Beispiele zu TI$: 


Uhrzeit 



Eingabe 

1 Uhr 

3 Min. 

6 Sek. 

010306 

12 Uhr 

0 Min. 

0 Sek. 

120000 

15 Uhr 

17 Min. 

56 Sek. 

151756 
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Ist TIS einmal richtig eingestellt, kann zu jedem Zeitpunkt die Uhrzeit ab¬ 
gefragt werden, wozu auch unser Programm dient. Damit die Uhrzeit in 
übersichtlicher Form erscheint, werden mit Hilfe der Stringoperationen 
LEFTS, MIDS und RIGHTS die Strings TIS, T2$ und T3S für Stunden, 
Minuten und Sekunden gebildet und mit einem entsprechenden Vermerk in 
Zeile 70 und 80 ausgegeben. Zeile 90 setzt den Cursor um eine Zeile nach 
oben, so daß der Anschein ensteht, es handele sich um eine feste Anzeige, 
die nicht den Bildschirm hinaufläuft. Zeile 100 springt wieder in Zeile 40, 
wo derselbe Vorgang von neuem beginnt. 


5.1.9 Laufschrift 

Mit Hilfe der verschiedenen Stringoperationen können wir eine Laufschrift 
auf dem Bildschirm erzeugen. Hier ein Beispiel: 

10 REM LAUFSCHRIFT 

20 A$=" NEUE COMPUTERBUECHER SIND GANZ TOLL! " 

30 PRINT "<CLR, 12 x CRSR DOWN>" 

40 A$=A$+A$ 

50 1=1+1 : IF 1=41 THEN 1=1 
60 PRINT MID$(A$,I,40) 

70 PRINT "<2 x CRSR UP>" 

80 FOR J=1 TO 100:NEXT 
90 GOTO 50 

Das Programm funktioniert denkbar einfach. Der als Laufschrift auszuge¬ 
bende String steht in Zeile 20 und hat eine Länge von 40 Zeichen. Er ist 
also genauso lang wie eine Bildschirmzeile im 40-Zeichen-Modus. Zeile 30 
setzt den Cursor um 12 Zeilen nach unten, so daß er etwa in der Bild¬ 
schirmmitte steht. 

Zeile 40 reiht den auszugebenden String zweimal aneinander, so daß er 
jetzt eine Gesamtlänge von 80 Zeichen hat. Der ganze Trick besteht darin, 
40 Zeichen des Strings in einer Schleife wiederholt auszugeben. Bei jedem 
Durchgang verschiebt sich das erste auszugebende Zeichen im String um 
eine Stelle nach rechts, was durch die MID$-Anweisung in Zeile 60 ge¬ 
steuert wird. Wird anschließend der Cursor um eine Zeile nach oben ge¬ 
setzt, entsteht durch die kontinuierliche Ausgabe der Eindruck einer Lauf¬ 
schrift. 
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5.2 Formatierte Ausgabe 

Die bisher betrachteten PRINT-Anweisungen konnten zwar Werte auf dem 
Bildsschirm ausgeben, hinterließen aber nicht immer das beste Erschei¬ 
nungsbild. Zwar konnten wir das Aussehen etwas verbessern, indem wir 
hinter PRINT ein Komma oder Semikolon setzten, die Übersichtlichkeit 
war deshalb aber noch lange nicht gegeben. 

Gerade wer Listen und Tabellen mit dem Computer ausgeben möchte, weiß 
es zu schätzen, wenn in Zahlenkolonnen die Dezimalpunkte untereinander 
stehen. Mit den bisher behandelten Rundungsverfahren und Stringopera¬ 
tionen könnten wir sicher eine solche Formatierung erreichen, wenn auch 
auf etwas umständliche Weise. Viel einfacher geht es aber mit der PRINT 
USING-Anweisung, mit der wir uns gleich näher befassen werden. 

Da umfangreiche Listen und Tabellen selten nur auf dem Bildschirm ausge¬ 
geben werden, wollen wir uns in diesem Zusammenhang auch mit der 
Druckerausgabe beschäftigen. Dabei spielt es keine Rolle, welchen Drucker 
Sie benutzen. Die meisten Drucker sind zwar für die formatierte Listenaus¬ 
gabe ausgerüstet, benötigen jedoch dazu diverse Steuerzeichen, die sich von 
Fabrikat zu Fabrikat unterscheiden. Die hier vorgestellten Formatierungs¬ 
anweisungen sind aber so auf gestellt, daß sie gleichermaßen für Bildschirm 
und Drucker Gültigkeit haben. 

Zuvor noch ein paar Worte zur Druckeransteuerung, über die es aber nicht 
allzuviel zu sagen gibt. Im Gegensatz zur Bildschirmausgabe sieht sie fol¬ 
gendermaßen aus: 

1. Logisches File öffnen 

2. Daten mit PRINT# ausgeben 

3. Logisches File schließen. 

Hier ein Beispiel, das die Zahlen 1 bis 10 auf dem Drucker ausgibt: 

10 OPEN 1,4 
20 FOR I = 1 TO 10 
30 PRINT# 1, I; 

40 NEXT 
50 CLOSE 1 
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Zeile 10 öffnet das logische File mit der Nummer 1 auf den Drucker mit 
der Geräteadresse 4. Die Zeilen 20 bis 40 geben die Zahlen aus, wobei statt 
PRINT die Anweisung PRINT# 1, Verwendung findet. Dieses PRINT# mit 
Rautenzeichen bezieht sich immer auf ein logisches File, das angegeben 
werden muß. In unserem Fall ist es das logische File 1, das wir in Zeile 10 
mit OPEN 1,4 geöffnet haben. Außerdem muß hinter PRINT# 1 ein Kom¬ 
ma stehen. Nachdem alle Werte ausgegeben sind, muß das logische File 1 
mit CLOSE 1 wieder geschlossen werden. Wenn Sie diese Regeln beachten, 
können Sie alles, was Sie mit PRINT auf dem Bildschirm schreiben, auch 
auf Ihrem Drucker ausgeben. Dies gilt auch für die Ausgabe mit PRINT 
USING, bei der Sie PRINT# 1, USING für die Druckerausgabe schreiben. 
Vergessen Sie aber nicht, das logische File zu öffnen und zu schließen! 


5.2.1 PRINT USING 

Mit PRINT USING können wir Zahlen und Strings formatiert ausgeben. 
Dabei sind die auszugebenden Stellen in einem Formatstring mit Rautenzei¬ 
chen oder Nummernzeichen (#) vorzugeben. Hier einige Beispiele: 

PRINT USING "###.##"; 3.187 
3.19 

READY. 

A = -3.14159 : PRINT USING "####.####"; A 
-3.1420 

READY. 

Manchmal ist es aber notwendig, ein Vorzeichen mit auszugeben. Es muß 
dann im Formatstring angegeben sein und kann wahlweise vorne oder hin¬ 
ten stehen: 

PRINT USING "+###.##"; 6.23 
+ 6.23 

READY. 

PRINT USING "###.##-"; -17.3 
17.30- 


READY. 



130 


5 Listenverarbeitung 


Mit PRINT USING können auch Zahlenwerte in Exponentialschreibweise 
ausgegeben werden. Zu diesem Zweck setzt man hinter das Rautenzeichen 
vier Pfeile: 

PRINT USING "+#.## AAAA "; 78.98 
+7.90E+01 

READY. 

Darüber hinaus besteht für Strings noch die Möglichkeit, sie entweder zen¬ 
triert oder rechtsbündig auszugeben: 

PRINT USING "########="; "ABC" 

’ ABC ’ 

READY. 

PRINT USING "########>"; "ABC" 

’ ABC’ 

READY. 

Die Apostrophe erscheinen normalerweise nicht und dienen hier nur zur 
Kennzeichnung der Ausgabe. Ist also das letzte Zeichen des Formatstrings 
ein Gleichheitszeichen, wird der String zentriert, bei einem "»"-Zeichen 
wird er rechtsbündig ausgegeben. 

Ist ein auszugebender String länger als im Formatstring vorgesehen, werden 
die überhängenden Zeichen rechts abgeschnitten: 

PRINT USING "##########"; "ARTIKEL-NUMMER" 
ARTIKEL-NU 

READY. 

Abschließend wollen wir noch ein kleines Programm betrachten, das eine 
Preisliste mit Artikelnummer, Artikelbezeichnung und Preis ausgeben soll. 
Die Artikelnummer wird hierin als String behandelt: 
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10 REM PREISLISTE 

20 PRINT'NR. ARTIKEL PREIS" 

30 PRINT 
40 DO 

50 READ N$ 

60 IFN$ = "9999" THEN EXIT 
70 READ ATS, P 
80 PRINT USING"####";N$; 

90 PRINT" 

100 PRINT USING"##########";AT$; 

110 PRINT" "; 

120 PRINT USING"####.##";P 
130 LOOP 

140 DATA 1581,TISCH, 125 
150 DATA 2659,STUHL,89.5 
160 DATA 0435,SESSEL,239.5 
170 DATA 5437,REGAL, 134.95 
180 DATA 3436,LAMPE,43.7 
190 DATA 9999 

Nach Eingabe von RUN erscheint die Preisliste folgendermaßen auf dem 


Bildschirm: 



NR. 

ARTIKEL 

PREIS 

1581 

TISCH 

125.00 

2659 

STUHL 

89.50 

0435 

SESSEL 

239.50 

5437 

REGAL 

134.95 

3436 

LAMPE 

43.70 

READY. 



Der Programmaufbau ist uns aus früheren ähnlichen Beispielen schon be¬ 
kannt. Neu sind hier lediglich die PRINT USING-Anweisungen zwischen 
Zeile 80 und 120. Indem sie jeweils mit einem Semikolon abschließen, las¬ 
sen sich mehrere formatierte Ausgabewerte in eine Reihe setzen. Diese 
Möglichkeit kennen wir bereits von der normalen PRINT-Anweisung her. 

Die einzelnen Daten sind wieder in DATA-Zeilen vorgegeben, wobei der 
letzte Wert 9999 die Abbruchbedingung in Zeile 60 darstellt. 
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Wollen Sie umfangreiche Listen ausdrucken, empfiehlt es sich, vorher einen 
Ausdruckplan anzufertigen. Dieser ist ein gitterartiges Schema, dessen Rei¬ 
hen den Zeilen und dessen Spalten den Druckpositionen in der Zeile ent¬ 
sprechen. Die verschiedenen Titel, Spaltenüberschriften und Einzelposten 
werden in den Ausdruckplan genauso eingetragen, wie sie später auf dem 
Bildschirm oder auf dem Papier erscheinen. Dabei ist es sinnvoll, die ein¬ 
zelnen Positionen durch ihren entsprechenden Formatstring auf dem Aus¬ 
druckplan zu kennzeichnen. 

Für Ausdruckpläne verwenden Sie spezielle Formulare, die es im Fachhan¬ 
del zu kaufen gibt oder aber einfaches, kariertes Papier. Achten Sie auch 
darauf, daß Sie pro Zeile nicht mehr Positionen angeben, als Ihr Drucker 
ausgeben kann. Die meisten Drucker können 80 Zeichen, einige Sonderaus¬ 
führungen 132 oder mehr Zeichen pro Zeile ausdrucken, was unter Um¬ 
ständen auch von der eingestellten Schriftbreite abhängt. 


5.3 Windows 

Der Commodore 128 PC bietet die Möglichkeit, auf dem Bildschirm Text¬ 
fenster (Windows) einzurichten. Ist dies einmal geschehen, finden sämtliche 
Bildschirmoperationen in diesem Textfenster statt, das wie ein eigener Bild¬ 
schirm zu betrachten ist. 

Auf dem Bildschirm können mehrere Windows mit unterschiedlicher Größe 
erscheinen. Viele professionelle Programme wenden die Window-Technik 
an, um im oberen oder unteren Teil des Bildschirms verschiedene Anwei¬ 
sungen zu geben, die der Bediener ständig vor Augen hat, solange er mit 
dem Programm arbeitet. 

Auf ein einmal definiertes Fenster beziehen sich alle Anweisungen, die in 
irgendeiner Weise Einfluß auf den Bildschirm haben, wie z.B. INPUT, 
PRINT oder GETKEY. Solche Anweisungen, zu denen auch das Löschen 
des Bildschirms oder die Cursorbewegungen gehören, beeinflussen nur das 
Window selbst, nicht aber den restlichen Bildschirmbereich. 

Textfenster werden mit der WINDOW-Anweisung erzeugt, die folgender¬ 
maßen definiert werden muß: 

WINDOW Spalte oben links, Zeile oben links, 

Spalte unten rechts, Zeile unten rechts, 

«Löschen des Windows> 
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Das Löschen des Windows ist wahlweise und geschieht nur, wenn hier eine 
1 angegeben ist. Ansonsten dürfen die Spalten- und Zeilenangaben sich nur 
innerhalb der jeweiligen Bildschirmgrenze bewegen. Der 40-Zeichen-Bild- 
schirm umfaßt die Zeilen 0 bis 24 und die Spalten 0 bis 39. Beim 80- 
Zeichen-Bildschirm liegt der Zeilenbereich ebenfalls zwischen 0 und 24, 
der Spaltenbereich dagegen zwischen 0 und 79. 

Als Anwendungsbeispiel wollen wir ein Textfenster erzeugen, das rings¬ 
herum einen Rand von vier Zeichen auf dem Bildschirm frei läßt. Im 
Fenster selbst geben wir in einer Endlosschleife das Wort "TEXTFENSTER" 
aus, auf dem Rand erscheint das Wort "RAND": 

10 PRINT "<CLR>" 

20 PRINT 

30 PRINT" RAND" 

40 WINDOW 4, 4, 35, 20 
50 PRINT'TEXTFENSTER GOTO 50 

Zeile 10 löscht den noch vollständigen Bildschirm, auf den in Zeile 30 das 
Wort "RAND" geschrieben wird. Das Fenster wird in Zeile 40 definiert, 
worauf Zeile 50 als Endlosschleife das Wort "TEXTFENSTER" im Fenster 
selbst immer wieder ausgibt. Falls Sie im 80-Zeichen-Modus arbeiten, än¬ 
dern Sie Zeile 40 folgendermaßen ab: 

40 WINDOW 4, 4, 75, 20 

Nachdem Sie die Wirkungsweise der WINDOW-Anweisung kennengelernt 
haben, brechen Sie das Programm mit der STOP-Taste ab. Wir werden jetzt 
die RWINDOW-Anweisung kennenlernen, die uns die Parameter unseres 
Fensters angibt: 
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PRINT RWINDOW(O) 

16 

READY. 

PRINT RWINDOW(l) 

31 

READY. 

PRINT RWINDOW(2) 

40 

READY. 

In der RWINDOW-Anweisung liefert das Argument 0 die Zeilenanzahl und 
das Argument 1 die Spaltenanzahl des Fensters. Bei einem Argument von 2 
erscheint die Zahl 40 oder 80, je nachdem, ob wir mit dem 40- oder 80- 
Zeichen-Bildschirm arbeiten. 

In unserem Fall hat das Fenster also 16+1 Zeilen und 31+1 Spalten; die 
Bildschirmbreite umfaßt 40 Zeichen. Bei den Zeilen und Spalten müssen 
wir jeweils eins hinzuzählen, da die Zählung hier bei Null beginnt. Somit 
hat ein Zeichen in der linken oberen Ecke die Position Spalte 0, Zeile 0. 

Wir können dieses Fenster wieder verlassen, indem wir zweimal hinterein¬ 
ander die HOME-Taste drücken. Beim ersten Drücken bezieht sich HOME 
auf das Textfenster, d.h., der Cursor befindet sich in dessen linker oberer 
Ecke. Drücken wir HOME ein zweites Mal, steht er in der linken oberen 
Bildschirmecke und sämtliche Anweisungen beziehen sich wieder auf den 
gesamten Bildschirm. 


5.4 Felder 

Allen Variablen, die wir bisher betrachtet haben, konnte immer nur ein 
Wert gleichzeitig zugeordnet werden. Dies galt gleichermaßen für Fließ¬ 
komma-, Integer- und Stringvariablen. Jetzt lernen wir Variablen kennen, 
die sich auf ganze Listen oder Wertebereiche gleichzeitig beziehen. Solche 
Variablen heißen indizierte Variablen oder auch Felder und können vom 
Datentyp Fließkomma, Integer oder String sein. 
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In Feldern lassen sich große Datenmengen ablegen und verarbeiten. Be¬ 
trachten wir zunächst nochmals unser Beispiel, das die Zahlen 1 bis 10 auf 
dem Bildschirm ausgibt: 

10 FOR I = 1 TO 10 
20 PRINT I; 

30 NEXT 

Wenn wir dieses Programm ausführen, wird in jedem Schleifendurchgang 
der jeweilige Inhalt der Laufvariablen I ausgegeben, der sich beim nächsten 
Durchgang schon wieder ändert. I ist hier also variabel und behält nie einen 
fest zugeordneten Wert. 

Es kann nun erforderlich sein, daß sämtliche Werte, die I bei der Abarbei¬ 
tung dieser Schleife annimmt, ständig abrufbereit gespeichert sind. Dazu 
legen wir ein eindimensionales Feld mit einem einzigen Variablennamen an. 

Diesem Feld wollen wir den Namen A geben und es soll zehn Kästchen 
oder Elemente besitzen, in denen wir unsere Werte ablegen. Das erste 
Kästchen erhält somit die Zahl 1, das zweite die Zahl 2 usw. und das 
zehnte die Zahl 10. 

Feldvariablennamen sind prinzipiell genauso auf gebaut wie diejenigen 
"normaler Variablen". Sie unterscheiden sich aber durch einen angefügten 
Index, der in Klammern stehen muß. Hier nun ein Beispiel, in dem wir die 
Zahlen 1 bis 10 der Feld variablen A zuordnen: 

10 DIM A(10) 

20 A(l) = 1 
30 A(2) = 2 
40 A(3) = 3 
50 A(4) = 4 
60 A(5) = 5 
70 A(6) = 6 
80 A(7) = 7 
90 A(8) = 8 
100 A(9) = 9 
110 A(10) = 10 
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Feldvariablen werden nicht automatisch angelegt, sondern benötigen eine 
besondere Anweisung, die ihnen genügend Speicherplatz reserviert. Dies 
geschieht in unserem Beispiel in Zeile 10 mit der DIM-Anweisung. Mit 
DIM A(10) wird BASIC aufgefordert, eine Feldvariable A mit Platz für 
zehn Elemente anzulegen. Diesen Vorgang nennt man Dimensionierung. 

Die restlichen Zeilen ordnen den verschiedenen Elementen der Feldvaria¬ 
blen die entsprechenden Werte zu. Nach Ausführung des Programms 
machen wir im Direktmodus einige Stichproben, um festzustellen, ob die 
Werte auch richtig zugeordnet wurden: 

PRINT A(3) 

3 

READY. 

PRINT A(8) 

8 

READY. 

PRINT A(l) 

1 

READY. 

Wir sehen also, daß die Elemente die richtigen ihnen zugeordneten Werte 
enthalten, die wir jederzeit natürlich auch im Programmodus abrufen kön¬ 
nen. Normalerweise brauchen wir den Elementen aber nicht durch Einzel¬ 
anweisungen Werte zuordnen, sondern können dies auch in einer Schleife 
tun. 

Das folgende Programm enthält zwei Schleifen, von denen die erste den 
Feldelementen Werte zuordnet, die von der zweiten wieder aufgerufen und 
ausgegeben werden. 
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10 DIM A (10) 

20 FOR I = 1 TO 10 
30 A(I) = I 
40 NEXT 
50 : 

60 FOR I = 1 TO 10 
70 PRINT A(I); 

80 NEXT 

Nach Eingabe von RUN erfolgt 
123456789 10 
READY. 

Wir können Zeile 30 auch abändern, daß jedes Element den fünffachen 
Wert seines Indices erhält: 

30 A(I) = 5*1 

Wenn wir das Programm jetzt ausführen, erhalten wir: 

5 10 15 20 25 30 35 40 45 50 
READY. 

Strenggenommen haben wir mit der DIM-Anweiung nicht Platz für 10, 
sondern für 11 Elemente geschaffen, denn bei jeder Dimensionierung ent¬ 
steht immer auch ein Feld mit dem Index 0. In unserem Fall hat das Ele¬ 
ment A(0) jedoch keine Bedeutung. 

Wenn Sie den Versuch unternehmen, mehr Elemente zu belegen, als durch 
die DIM-Anweisung vorgegeben sind, entsteht die Fehlermeldung 

?BAD SUBSCRIPT ERROR IN (Zeilennummer) 

Dimensionieren Sie also die Felder immer ausreichend groß, daß Sie alle 
Daten, die Sie benötigen, darin unterbringen können. Am besten führen Sie 
dies gleich am Programmanfang durch. Achten Sie aber darauf, daß jedes 
Feld nur einmal dimensioniert werden darf. Wird nämlich der Versuch un¬ 
ternommen, dies ein zweites Mal zu tun, erscheint die Fehlermeldung 
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?REDIM’D ARRAY ERROR IN (Zeilennummer) 

und das Programm bricht ab. Da der verfügbare Speicher begrenzt ist, kön¬ 
nen Sie ein Feld auch nicht beliebig groß dimensionieren. 

Nun wollen wir noch zwei praxisbezogene Beispiele betrachten. Zunächst 
nehmen wir uns dafür wieder das Programm vor, das eine Preisliste ausgibt. 
Wir ändern es aber so um, daß sämtliche Daten nicht nur ausgegeben, son¬ 
dern darüberhinaus auch in Feldern abgelegt werden: 

10 REM PREISLISTE 
15 DIM N$(20), AT$(20), P(20) 

17 I = 1 

20 PRINT'NR. ARTIKEL PREIS" 

30 PRINT 
40 DO 

50 READ N$(I) 

60 IF I>20 OR N$(I) = "9999" THEN EXIT 
70 READ AT$(I), P(I) 

80 PRINT USING"####";N$(I); 

90 PRINT" "; 

100 PRINT USING"##########"; AT$(I); 

110 PRINT" "; 

120 PRINT USING"####.##";P(I) 

125 I = 1+1 
130 LOOP 

140 DATA 1581,TISCH, 125 
150 DATA 2659,STUHL,89.5 
160 DATA 0435,SESSEL,239.5 
170 DATA 5437.REGAL, 134.95 
180 DATA 3436,LAMPE,43.7 
190 DATA 9999 

Statt einfacher Variablen verwenden wir hier die Feldvariablen N$(I) für 
die Artikelnummer, AT$(I) für den Artikel und P(I) für den Preis. Zeile 15 
enthält eine DIM-Anweisung, die alle drei Felder gleichzeitig dimensio¬ 
niert. Für jedes Feld wurden hier absichtlich 20 Elemente vorgesehen, um 
die Preisliste noch erweitern zu können. Zeile 17 setzt den Zähler I auf 1, 
der vor der LOOP-Anweisung jeweils um eins erhöht wird. 

Das nächste Programm wertet Temperaturmessungen aus und bestimmt den 
höchsten und den niedrigsten Temparaturwert. 
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10 REM TEMPERATURAUSWERTUNG 
20 DIM T(20) 

30 FOR I = 1 TO 20 
40 READ T(I) 

50 NEXT 
60 L = T(l) 

70 H = T(l) 

80 FOR I = 2 TO 20 

90 IF T(I) > H THEN H = T(I) 

100 IF T(I) < L THEN L =T(I) 

110 NEXT 

120 PRINT "DIE TIEFSTE TEMPERATUR WAR"; L 

130 PRINT "DIE HOECHSTE TEMPERATUR WAR"; H 

140 DATA 12.4, 13.7, 10.3, 18.8, 15.0 

150 DATA 14.2, 15.5, 17.4, 16.6, 14.9 

170 DATA 11.4, 13.5, 12.8, 11.9, 10.2 

180 DATA 13.6, 14.8, 17.1, 13.6, 15.0 

Nach Eingabe von RUN erscheint: 

DIE TIEFSTE TEMPARATUR WAR 10.2 
DIE HOECHSTE TEMPERATUR WAR 18.8 

READY. 

Zunächst werden die verschiedenen Temparaturwerte eingelesen und im 
Feld T(I) abgelegt. Die niedrigste (L) und die höchste Temperatur (H) 
werden dann mit dem ersten Wert T(l) vorbelegt. In der FOR...NEXT- 
Schleife werden sämtliche Werte vom zweiten Wert an gelesen und geprüft, 
ob sie größer als der bisher höchste oder kleiner als der bisher tiefste Wert 
sind. Wenn ja, werden sie zum neuen höchsten bzw. tiefsten Wert bestimmt. 

Felder besitzen die wichtige Eigenschaft des Direktzugriffs. Dies bedeutet, 
daß man einzelne Elemente nach Belieben lesen oder beschreiben kann, 
ohne die davorliegenden Elemente erst einiesen zu müssen. Wir können 
diese Eigenschaft bei allen hier aufgeführten Beispielen beobachten, die 
Datenwerte aus DATA-Zeilen einiesen. Ist der Einlesevorgang beendet, 
kann auf jedes Element frei zugegriffen werden. 

Neben den eindimensionalen gibt es auch mehrdimensionale Felder. Sie sind 
durch mehrere durch Kommas getrennte Indices gekennzeichnet. Hier ein 
Beispiel, das ein zweidimensionales Feld dimensioniert: 
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10 DIM P(25,10) 

20 FOR J = 1 TO 25 
30 FOR I = 1 TO 10 
40 P(J,I) = J*I 
50 NEXT I 
60 NEXT J 


Zeile 10 dimensioniert das Feld P mit 25 mal 10 Elementen, denen in Zeile 
40 Werte aus dem Produkt von I und J zugeordnet werden. 


5.5 Suchen und Sortieren 

Felder eignen sich besonders für Such- und Sortiervorgänge. Stellen Sie sich 
einmal vor. Sie suchen einen Namen aus einer unsortierten Adressenliste 
heraus. Dabei gehen Sie die Liste von oben nach unten durch und verglei¬ 
chen jeden einzelnen Namen mit dem, den Sie suchen. Dies machen Sie so¬ 
lange, bis Sie entweder Ihren Namen gefunden haben oder die Liste zu 
Ende ist. 

Auch der Computer kann ein Feld nach diesem Schema durchsuchen, was 
man als sequentielles (aufeinanderfolgendes) Suchen bezeichnet. Hier ein 
kleines Unterprogramm, das die sequentielle Suche durchführt und das man 
an jedes andere Programm anfügen kann. Dabei kennzeichnet N$(I) das zu 
durchsuchende Feld und NA$ den Namen, der gesucht werden soll: 

1000 REM SEQUENTIELLES SUCHEN 
1010 I = 1 
1020 DO 

1030 IF N$(I) = NA$ OR N$(I) = "ENDE" THEN EXIT 
1040 1 = 1 +1 
1050 LOOP 
1060 RETURN 

Bei diesem Programm wird die Suche solange fortgeführt, bis entweder der 
gesuchte Name gefunden wurde oder das Tabellenende erreicht ist. Dies er¬ 
kennt das Programm an der Markierung "ENDE", die im ersten nicht mehr 
benutzten Feldelement vorhanden sein muß. 

Darüber hinaus gibt es noch das binäre Suchen, das sich aber nur für sor¬ 
tierte Felder eignet. Es ist damit vergleichbar, wenn Sie in einem Lexikon 
ein Stichwort suchen. Zunächst schlagen Sie das Lexikon in der Mitte auf. 
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wodurch es in zwei Hälften geteilt wird. Nun wird das erste Wort auf der 
ersten Seite der zweiten Hälfte betrachtet. Erscheint Ihr Stichwort davor, so 
ist es in der ersten Hälfte zu suchen, anderenfalls befindet es sich in der 
zweiten Hälfte. 

Diesen Vorgang wiederholen Sie nun für die Hälfte des Lexikons, in der 
das gesuchte Wort steht. Sie wird wieder in der Mitte aufgeschlagen und es 
wird erneut bestimmt, welche der beiden Hälften das Wort enthält. Dies 
wiederholen Sie so lange, bis nur noch eine Seite übrigbleibt. 

Binäres Suchen in einem Lexikon mag eine etwas umständliche Methode 
darstellen, in Computerprogrammen ist es aber dem sequentiellen Suchen 
weit überlegen, besonders bei großen Dateien. So benötigt ein Verzeichnis 
mit 1000 Einträgen bei sequentieller Suche durchschnittlich 500, maximal 
jedoch 1000 Vergleiche, um einen Eintrag zu finden, während es bei der 
binären Suche nie mehr als 10 sind. 

Auch für das binäre Suchen wollen wir ein kleines Unterprogramm be¬ 
trachten: 

1000 REM BINAERES SUCHEN 
1010 L = 1 : MI = 1 : H = FR -1 
1020 DO WHILE L<=H AND N$(MI)oNA$ 

1030 MI = INT((L+H)/2) 

1040 IF NA$ < N$(MI) THEN H = MI-1 
1050 IF NA$ > N$(MI) THEN L = MI+1 
1060 LOOP 
1070 I=MI 
1080 RETURN 

Dabei ist wieder N$(I) das Feld mit den Namen und NA$ der gesuchte Na¬ 
me. L und H grenzen den Bereich der Elemente ein, in denen sich der ge¬ 
suchte Name befindet. MI zeigt jeweils auf die Mitte des zu halbierenden 
Bereichs. I gibt die Nummer des Elements, welches den gesuchten Namen 
enthält, an das aufrufende Hauptprogramm zurück. FR ist das erste 
Element im Feld, das nicht benutzt wird. 

Nun wollen wir noch zwei Sortierverfahren für Strings kennenlernen, die 
aber in leicht abgewandelter Form auch für numerische Werte einzusetzen 
sind. Bei Strings verwenden wir dazu ein Stringfeld und bei numerischen 
Werten ein Feld für Fließkommazahlen. 
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Zunächst befassen wir uns mit dem Sortieren durch Einfügen. Während des 
ganzen Sortiervorganges wird das Feld in zwei Teile unterteilt, nämlich in 
einen bereits sortierten und in einen unsortierten Teil. Aus dem unsortier¬ 
ten Teil wird immer das erste Element herausgenommen, mit den Elemen¬ 
ten im sortierten Teil verglichen und dort an der richtigen Stelle eingefügt. 
Hier zunächst einmal das Programmlisting: 

10 REM SORTIEREN DURCH EINFUEGEN 
20 : 

30 : 

40 : 

50 REM DATEN EINLESEN 
60 DIM N$(20) 

70 1=1 
80 DO 

90 READ N$(I) 

100 IF N$(I)="ENDE" THEN K=I-1:EXIT 
110 1 = 1+1 
120 LOOP 
130 : 

140 : 

150 : 

160 REM DATEN UNSORTIERT AUSGEBEN 
170 PRINT'NAMEN UNSORTIERT" 

180 PRINT 

190 FOR 1=1 TO K 

200 PRINT N$(I) 

210 NEXT 
220 PRINT 
230 PRINT 
240 : 

250 : 

260 : 

270 REM DATEN SORTIEREN 
280 FOR 1=2 TO K 
290 N$(0)=N$(I) 

300 J=I-1 

310 DO WHILE N$(J)>N$(J+1) 

320 A$=N$(J+1) 

330 N$(J+1) = N$(J) 

340 N$(J)=A$ 

350 J=J-1 
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360 LOOP 
370 NEXT 
380 : 

390 : 

400 : 

410 REM DATEN SORTIERT AUSGEBEN 
420 PRINT"NAMEN SORTIERT" 

430 PRINT 

440 FOR 1=1 TO K 

450 PRINT N$(I) 

460 NEXT 
470 END 
480 : 

490 : 

500 : 

510 REM DATEN WERTE 

520 DATA HANS,INGE,FRITZ,RAINER,SIGMUND,ANTON, 

SUSANNE 

530 DATA ELISABETH,CHRISTA,FRANZ,MARIA,MONIKA, 

ENDE 

Zunächst werden sämtliche Namen, die hier sortiert werden sollen, aus den 
DATA-Zeilen am Programmende eingelesen und den Elementen des Feldes 
N$(I) zugeordnet. Zeile 60 dimensioniert das Feld für 20 Einträge. Wir 
hätten es aber auch ebensogut mit einem anderen Wert dimensionieren kön¬ 
nen, um Platz für mehr oder weniger Einträge zu schaffen. 

Am Ende der DATA-Zeilen steht wieder die Markierung "ENDE", die das 
Ende der Tabelle kennzeichnet. Wir können nun auch leicht die Anzahl der 
Werte bestimmen, die die Tabelle enthält. Im Programm ist sie der Varia¬ 
blen K zugeordnet. Ab Zeile 160 werden dann sämtliche Namen in unsor¬ 
tierter Reihenfolge ausgegeben. 

Das eigentliche Sortieren des Feldes N$(I) beginnt in Zeile 270. K zeigt auf 
das letzte Element des Feldes, was besagt, daß alle Elemente von N$(l) bis 
N$(K) zu sortieren sind. Das ansonsten nicht verwendete Element N$(0) 
dient hier als Markierung, damit der Tabellenanfang nicht unterlaufen 
wird. 

Bei jedem Sortierschritt wird das Feld N$ in einen bereits sortierten und 
einen noch unsortierten Teil aufgeteilt. Dabei zeigt die Variable I jeweils 
auf den ersten Wert des nicht-sortierten Teilfeldes, d.h. die Elemente N$(l) 
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bis N$(I-1) sind jeweils sortiert, während die Elemente N$(I) bis N$(K) 
noch nicht sortiert sind. 

Der Sortiervorgang beginnt mit dem zweiten Element (FOR...NEXT-Schlei- 
fe), da eine Tabelle mit einem Element immer sortiert ist. In den Zeilen 
310 bis 360 (DO...LOOP-Schleife) wird jeweils das einzufügende Element 
solange mit den Elementen des sortierten Teils verglichen, bis es an seiner 
richtigen Stelle steht. Ist es noch größer, als das nächstfolgende Element, 
wird es mit ihm vertauscht (Zeile 320 bis 340). Damit der Tauschvorgang 
zwischen den Werten von N$(J) und N$(J+1) stattfinden kann, wird die 
Hilfsvariable A$ eingeführt. Dieser Vorgang wird nun für jedes Element 
der Tabelle wiederholt. Dabei nimmt bei jedem Durchgang (FOR...NEXT- 
Schleife) die Anzahl der sortierten Elemente um eins zu, während die 
nicht-sortierten Elemente um eins abnehmen. Ist die Tabelle fertig sortiert, 
werden die Elemente nochmals in ihrer richtigen Reihenfolge ausgegeben 
(Zeile 410 bis 470). 

Das Sortierverfahren durch Einfügen ist nur für kurze Listen geeignet, da 
bei längeren Listen die Sortierzeit ins Unermeßliche steigt. Das nachfolgend 
aufgeführte Verfahren nach Shell arbeitet wesentlich schneller, da es nicht 
zwei nebeneinander liegende Elemente vergleicht und gegebenenfalls ver¬ 
tauscht, sondern zwei Elemente, die weit auseinanderliegen, wobei viele da¬ 
zwischenliegende Elemente übersprungen werden. 

Das Shell-Verfahren ist dem Verfahren durch Einfügen zwar ähnlich, un¬ 
terscheidet sich aber dadurch, daß anstelle der Elemente N$(J) und N$(J+1) 
die Elemente N$(J) und N$(J+G) verglichen und (falls nötig) vertauscht 
werden. Dabei kann G viel größer als 1 sein. Das Shell-Verfahren beinhal¬ 
tet demgemäß das Einfügverfahren in abgeänderter Form, wobei die Sor¬ 
tiervorgänge für verschiedene Werte von G durchgeführt werden. 

Hier nun das gleiche Programm noch einmal mit der Sortierroutine nach 
Shell: 


10 REM SORTIEREN NACH SHELL 
20 : 

30 : 

40 : 

50 REM DATEN EINLESEN 
60 DIM N$(20) 

70 1=1 
80 DO 
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90 READ N$(I) 

100 IF N$(I)="ENDE" THEN K=I-1:EXIT 
110 1 = 1+1 
120 LOOP 
130 : 

140 : 

150 : 

160 REM DATEN UNSORTIERT AUSGEBEN 
170 PRINT"NAMEN UNSORTIERT" 

180 PRINT 

190 FOR 1=1 TO K 

200 PRINT N$(I) 

210 NEXT 
220 PRINT 
230 PRINT 
240 : 

250 : 

260 : 

270 REM DATEN SORTIEREN 
280 G=INT(K/2) 

290 DO WHILE G>0 

300 FOR I=G+1 TO K 

310 J=I-G 

320 DO WHILE J>0 

330 IF N$(J)>N$(J+G) THEN BEGIN 

340 A$=N$(J+G) 

350 N$(J+G)=N$(J) 

360 N$(J)=A$ 

370 J=J-G 

380 BEND:ELSE J=0 
390 LOOP 
400 NEXT 
410 G=INT(G/2) 

420 LOOP 
430 : 

440 : 

450 : 

460 REM DATEN SORTIERT AUSGEBEN 
470 PRINT'NAMEN SORTIERT" 

480 PRINT 

490 FOR 1=1 TO K 

500 PRINT N$(I) 
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510 NEXT 
520 END 
530 : 

540 : 

550 : 

560 REM DATENWERTE 

570 DATA HANS,INGE,FRITZ,RAINER,SIGMUND,ANTON, 

SUSANNE 

580 DATA ELISABETH,CHRISTA,FRANZ,MARIA,MONIKA, 

ENDE 

Zu Beginn des Programms wird G auf die halbe Größe der zu sortierenden 
Liste gesetzt. Danach wird G wiederholt durch 2 geteilt und mit jedem da¬ 
durch erhaltenen Wert das abgeänderte Verfahren durch Einfügen durchge¬ 
führt. Dies geschieht solange, bis G gleich eins und damit der Sortiervor¬ 
gang beendet ist. 

Versuche haben ergeben, daß das Shell-Verfahren große Datenmengen etwa 
zehnmal schneller als das Einfügeverfahren sortiert. Bei kleinen Listen mag 
das Einfügeverfahren geringfügig schneller arbeiten, da es weniger Anwei¬ 
sungen benötigt. Insgesamt betrachtet aber ist das Shell-Verfahren gegen¬ 
über dem Verfahren durch Einfügen erheblich vorteilhafter! 
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In diesem Kapitel geht es um die Dateiverwaltung auf Kassette und Floppy, 
mit der wir uns nachfolgend ausführlich beschäftigen wollen. Dabei ist es 
jedoch unerläßlich, daß Sie den Inhalt der vorangegangenen Kapitel gut 
durchgearbeitet und verstanden haben, da die Dateiverwaltung bereits eini¬ 
ge Programmierkenntnisse voraussetzt. Sie sollten, bevor Sie sich der neuen 
Thematik widmen, zumindest in der Lage sein, ohne große Mühe Ihre eige¬ 
nen Programme mit Stringvariablen, Stringoperationen und Feldern zu 
schreiben. 

Zunächst werden wir uns nun mit den einzelnen Dateitypen befassen, die es 
in BASIC gibt. Daran anschließend lernen wir die wichtigsten Anweisungen 
kennen, die zur Dateiverwaltung in BASIC benötigt werden. Es folgt eine 
Beschreibung der Dateiverwaltung auf Kassette, die aber nur ein Notbehelf 
ist und die Möglichkeiten Ihres 128 PC bei weitem nicht ausschöpft. 

Interessant wird es dann in den letzten beiden Abschnitten, in denen es um 
die sequentielle und relative Dateiverwaltung auf der Floppy geht. In 
diesem Zusammenhang wird ein umfangreiches Adressenverwaltungspro¬ 
gramm vorgestellt, das vieles beinhaltet und vereinigt, was Sie in diesem 
Buch bereits kennengelernt haben. Das Programm ist aber gleichzeitig auch 
als Anregung zur Erstellung eigener Dateiverwaltungsprogramme gedacht. 
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6.1 Dateitypen 

Die Commodore-Floppies sind in der Lage, vier verschiedene Dateitypen zu 
verarbeiten. Wenn Sie mit Hilfe von 

DIRECTORY 

das Inhaltsverzeichnis einer Diskette auflisten, erscheint die oberste Zeile in 
inverser Schrift, die den Diskettennamen, die ID (s. Kapitel 1) und den 
Vermerk 2A enthält, welcher der Typenkennzeichnung des Disketten-Auf¬ 
zeichnungsformates entspricht. Unter dieser Kopfzeile werden sämtliche 
Dateien aufgeführt, die auf der Diskette gespeichert sind. 

Die linke Zahl gibt die Anzahl der Blöcke (Sektoren zu je 256 Bytes) an, 
die die Datei auf der Diskette belegt. Dann folgt der Dateiname und rechts 
der Dateityp, der mit drei Buchstaben gekennzeichnet ist. Dabei bedeuten 

PGR = Programmdatei 

SEQ = sequentielle Datei 

REL = relative Datei 

USR = Anwender- (User-) Datei 

Programmdateien lernten wir bereits im ersten Kapitel kennen, auch wenn 
wir sie dort noch nicht mit diesem Namen bezeichnet haben. Programme 
sind im Sinne der Datenspeicherung auch Dateien, die jedoch nicht aus 
Datenposten, wie z.B. Artikelnummer, Artikelbeschreibung oder Preis be¬ 
stehen, sondern aus einem Programmtext, den wir durch LIST sichtbar 
machen können. Programme sind allerdings nur teilweise im Klartext, d.h. 
in reinem ASCII-Code gespeichert, während ein Großteil aus Binärcodes 
und Tokens (binäre Kurzform für einzelne BASIC-Anweisungen) besteht. 

Da wir den Umgang mit Programmdateien, insbesondere die Anweisungen 
zum Speichern und Laden von Programmen wie LOAD, DLOAD, SAVE 
und DSAVE, ausführlich im ersten Kapitel behandelt haben, wollen wir auf 
eine Wiederholung an dieser Stelle verzichten. Ebenfalls in Kapitel 1 haben 
wir Diskettenbefehle kennengelernt, die auch für alle anderen Dateitypen 
gelten und deshalb nochmals kurz erwähnt werden sollen: 

HEADER "Dateiname, ID" Formatieren einer Diskette 

SCRATCH "Dateiname" Löschen einer Datei 

RENAME "Alter Name" TO Umbenennen einer Datei 

"Neuer Name" 
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Beachten Sie bitte, daß bei SCRATCH und RENAME nur der Dateiname 
angegeben werden muß, nicht aber der Dateityp. Deshalb ist es auch unzu¬ 
lässig, auf einer Diskette zwei Dateien unter gleichem Namen aber von un¬ 
terschiedlichem Typ abzuspeichern. 

Mit sequentiellen und relativen Dateien werden wir uns in diesem Kapitel 
noch ausführlich beschäftigen. Sequentielle Dateien bestehen aus Datensät¬ 
zen, die hintereinander (sequentiell) im ASCII-Code auf Diskette geschrie¬ 
ben und ebenso wieder gelesen werden. Wenn Sie also den 100. Datensatz 
einer sequentiellen Datei benötigen, müssen Sie die 99 davorliegenden 
ebenfalls einiesen, was unter Umständen eine sehr zeitraubende Angelegen¬ 
heit ist. 

Dies ist bei relativen Dateien anders, denn hier werden auf der Diskette so¬ 
genannte Records mit fester Länge angelegt, auf die dann direkt zugegrif¬ 
fen werden kann, ohne daß alle anderen Records zuvor gelesen werden 
müssen. Das Diskettenbetriebssystem (DOS) reserviert dabei automatisch ge¬ 
nügend Speicherplatz und führt eine interne Tabelle, die angibt, in wel¬ 
chem Sektor und an welcher Stelle sich darin der betreffende Record 
befindet. 

Unter den letzten Datetyp, der von der Floppy verwaltet werden kann, fal¬ 
len die Anwender- oder User-Dateien. Diese Art von Datei dient nur 
besonderen Zwecken, die sich meist auf die Maschinenprogrammierung des 
DOS oder des Betriebssystems im Computer beziehen. Da wir aber im vor¬ 
liegenden Buch die BASIC-Programmiersprache erlernen wollen, benötigen 
wir diesen Dateityp nicht und wollen deshalb auch nicht näher darauf 
eingehen. 


6.2 BASIC-Anweisungen zur Dateiverwaltung 

Jedesmal, bevor ein Zugriff auf ein Peripheriegerät (Drucker, Floppy, Kas¬ 
settenrecorder) vorgenommen wird, muß die Verbindung zu dem betreffen¬ 
den Gerät aktiviert werden. Wenn Sie Programme laden oder abspeichern, 
geschieht dies automatisch, indem Sie LOAD (DLOAD) bzw. SAVE 
(DSAVE) eingeben. Das Betriebssystem öffnet dann eine Programmdatei, 
schreibt das Programm auf Diskette oder Band und schließt die Datei 
wieder. 
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Nicht ganz so bequem ist das Floppy-Handling für sequentielle oder rela¬ 
tive Dateien. Hier muß das Öffnen, die Aus-/Eingabe und das Schließen 
separat vorgenommen werden. Das gleiche gilt im Prinzip auch für den 
Drucker, obwohl Sie an ihn nur Daten ausgeben können, aber es nicht 
möglich ist, Daten davon einzulesen. 

Das wichtigste ist das richtige Öffnen des Ein-/Ausgabekanals zu dem be¬ 
treffenden Gerät, was mit der OPEN-Anweisung geschieht. 

Hier ihre allgemeine Form: 

OPEN lf, dn, sa, "name" 

Darin bedeuten 

lf = logische Filenummer 

dn = Gerätenummer 

sa = Sekundäradresse 

name = Dateiname 

File kommt aus dem Amerikanischen und heißt übersetzt Datei. Ein logi¬ 
sches File ist also eine logische Datei, die keinesfalls mit unserer auszuge¬ 
benden oder einzulesenden Datei identisch ist. In jeder OPEN-Anweisung 
muß ein logisches File definiert werden, wodurch BASIC einen bestimmten 
Übertragungskanal zu einem Gerät herstellt. So können Sie mehrere (bis zu 
10) logische Files gleichzeitig öffnen, wobei z.B. das File mit der Nummer 

1 einem Eingabekanal von der Floppy entspricht, das File mit der Nummer 

2 einem Ausgabekanal zur Floppy und das File mit der Nummer 3 einem 
Ausgabekanal zum Drucker. 

In der Wahl der Filenummer sind Sie weitestgehend frei, so daß Sie den ge¬ 
rade genannten Kanälen auch die Filenummern 25, 61 und 103 geben 
könnten. Filenummern können beliebige Werte zwischen 1 und 255 anneh¬ 
men, wobei diejenigen, die größer als 127 sind, jedoch eine Sonderfunktion 
haben. Wird nämlich am Ende eines Datensatzes ein Carriage Return oder 
CHR$(13) gesendet, erzeugen Files mit höheren Nummern zusätzlich noch 
ein Line Feed bzw. CHR$(10). Dies ist jedoch nur bei der Übertragung zu 
anderen Rechnern von Bedeutung, da Commodore-Computer in der Regel 
ohne Line Feed auskommen. 
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Sie können auch zur Floppy mehrere logische Files gleichzeitig öffnen, was 
bei sehr umfangreichen Dateiverwaltungen durchaus Vorkommen kann. In 
unserem Beispiel waren es immerhin zwei Files, die einen Schreib- und 
einen Lesekanal verwalteten. 

Das nächste, was in der OPEN-Anweisung angegeben werden muß, ist die 
Gerätenummer, die sich theoretisch zwischen 1 und 15 bewegen kann. Nor¬ 
malerweise werden aber nur folgende Nummern benötigt: 

Nummer Gerät 

0 Tastatur 

1 Kassettenrecorder 


RS-232-Schnittstelle 

Bildschirm 

Drucker 

eventuell zweiter Drucker oder Plotter 
Floppylaufwerk 

eventuell zweites Floppylaufwerk 


2 

3 

4 

5 
8 
9 


Uns interessieren hier nur die Gerätenummern 1 für die Datasette, 4 für 
den Drucker und 8 für die Floppy. Die RS-232-Schnittstelle benötigen Sie 
nur zur Datenfernübertragung, wenn Sie z.B. ein Modem anschließen. Viel¬ 
leicht sind Sie darüber erstaunt, daß auch die Tastatur und der Bildschirm 
eine Gerätenummer besitzen. Diese Nummern müssen normalerweise jedoch 
nicht angegeben werden, da sie durch das Betriebssystem automatisch ge¬ 
setzt werden, wenn sie z.B. eine Taste drücken oder mit PRINT etwas auf 
den Bildschirm ausgeben; nur in wenigen Ausnahmefällen ist die Angabe 
dieser Gerätenummern erforderlich. 

Der dritte Parameter in der OPEN-Anweisung ist die Sekundäradresse, die 
von Gerät zu Gerät eine unterschiedliche Bedeutung haben kann. So geben 
z.B. die meisten Drucker Groß- und Kleinbuchstaben aus, wenn ihnen zu¬ 
vor die Zahl 7 als Sekundäradresse übermittelt wurde. Eine andere Sekun¬ 
däradresse steuert z.B. den Graphikmodus oder den Zeilenabstand des 
Druckers, während er für den Normalbetrieb keine oder die Sekundäradres¬ 
se 0 benötigt. 


Als letztes folgt noch der Dateiname der (richtigen!) Datei. Er kann in 
manchen Fällen noch weitere Parameter enthalten, wie wir bei den Floppy- 
operationen noch sehen werden. 
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Nicht immer muß eine OPEN-Anweisung sämtliche Parameter enthalten. So 
genügt es z.B. beim Drucker meistens, wenn Sie nur die Filenummer und 
die Gerätenummer angeben. 

Um Verwechslungen zwischen den logischen Dateien (Files) und den 
"echten" Dateien zu vermeiden, wollen wir im folgenden die logischen Files 
mit "Files" bezeichnen und für die zu übertragenden Dateien das deutsche 
Wort "Datei" belassen. 


Nachdem nun ein File eröffnet ist, können auf ein Gerät Daten ausgegeben 
oder von ihm eingelesen werden. Ob es sich um einen Aus- oder Eingabe¬ 
kanal handelt, ist meist in der Sekundäradresse oder im Dateinamen festge¬ 
legt. Zur Ausgabe in ein eröffnetes File dient die PRINT#-Anweisung, 
zum Einlesen entweder die INPUT#- oder die GET#-Anweisung. PRINT# 
gibt einen ASCII-String aus, der mit einem Carriage Return abgeschlossen 
sein muß. Ist eine Zahl oder Fließkommavariable angegeben, wird diese zu¬ 
nächst in einen String umgewandelt (vgl. STRS-Anweisung) und dann aus¬ 
gegeben. INPUT# bewirkt das Gegenteil von PRINT#; es liest einen String 
ein. Einen Sonderfall stellt die GET#-Anweisung dar, die nur zum Lesen 
verwendet werden kann und immer nur ein Zeichen einliest. Hier einige 
Beispiele: 


PRINT#2,"ABC" 

PRINT#2, A$ 
PRINT#2, C 

INPUT#3, C$ 

GET#1, A$ 


gibt den String "ABC" auf den mit der logi¬ 
schen Filenummer 2 zugeordneten Kanal aus. 

dasselbe geschieht mit dem Inhalt von A$ 

dasselbe geschieht mit dem Inhalt der numeri¬ 
schen Variablen C, nachdem er in ASCII-Zei- 
chen umgeformt wurde. 

liest einen String von dem Gerät, welchem das 
logische File 3 zugeordnet wurde und legt ihn 
in der Variablen C$ ab. 

liest ein Zeichen aus dem logischen File 1 und 
ordnet es A$ zu. 


Wir sehen also, daß in den Ein-/Ausgabe-Anweisungen immer nur die lo¬ 
gische Filenummer angegeben werden muß, die sich auf die entsprechende 
OPEN-Anweisung bezieht. Wurde ein File nicht eröffnet, erscheint die 
Fehlermeldung 


7FILE NOT OPEN ERROR IN (Zeilennummer) 
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Nach Abschluß aller Ein-/Ausgabeoperationen dürfen Sie nicht vergessen, 
das logische File zu schließen. Dies erfolgt mit der CLOSE-Anweisung. So 
schließt 

CLOSE 2 

den Ein- oder Ausgabekanal für das Gerät, das ihm in der entsprechenden 
OPEN-Anweisung zugeordnet wurde. Wenn Sie beim Drucker vergessen, 
das logische File zu schließen, sind die Folgen noch relativ harmlos. 
Schlimmer ist es dagegen, wenn Sie Daten auf die Floppy geschrieben 
haben, die dann unter Umständen teilweise verlorengehen oder nur unter 
großen Schwierigkeiten wieder gelesen werden können. 

Für Floppyoperationen hat BASIC 7.0 die DOPEN- /DCLOSE-Anweisung. 

DOPEN# 1,"TEST", W 

eröffnet eine sequentielle Datei unter dem Namen "TEST" zum sequentiellen 
Schreiben unter der Filenummer 1. Dabei wird die Gerätenummer und die 
Sekundäradresse automatisch gesetzt und übermittelt. 

DOPEN# 1,"TEST" 

eröffnet die gleiche Datei zum Lesen. Dabei fehlt nur der durch Komma 
abgetrennte Zusatz W für Schreiben. Genauso wird diese Datei in beiden 
Fällen mit 

DCLOSE#1 

wieder geschlossen. 

Abschließend wollen wir noch die Anweisung CMD betrachten, die sich für 
einige Fälle als recht nützlich erweist. CMD leitet nämlich die Bildschirm¬ 
ausgabe auf ein anderes Peripheriegerät um. Leider enthält BASIC 7.0 keine 
Anweisung zur Ausgabe von Programmlistings auf dem Drucker, so daß wir 
einen Trick anwenden müssen, um dies dennoch zu ermöglichen: 

OPEN 1,4 
CMD 1 
LIST 
PRINT# 1 
CLOSE 1 
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Da die LIST-Anweisung normalerweise nur auf dem Bildschirm funktio¬ 
niert, leiten wir die Bildschirmausgabe vorher auf den Drucker um. Für die 
Ausgabe muß aber zuerst ein logisches File eröffnet werden (OPEN 1,4). 
CMD 1 dirigiert dann die Bildschirmausgabe auf den Drucker und LIST 
listet das Programm. Im Anschluß wird durch ein einfaches PRINT#1 die 
Ausgabe wieder zurück auf den Bildschirm gelegt, worauf CLOSE 1 das 
logische File 1 wieder schließt. 

Dasselbe, was wir gerade mit dem Drucker gemacht haben, können wir 
auch mit jedem anderen Ausgabegerät praktizieren. Durch geringe Ab¬ 
wandlung der obigen Anweisungen leiten wir diesmal die Ausgabe auf die 
Floppy um und erzeugen eine sequentielle Datei. Diese Methode, die Ihnen 
den Programmtext in reinem ASCII-Code liefert, ist besonders dann hilf¬ 
reich, wenn Sie das Listing in ein Textsystem übernehmen möchten, das 
mit sequentiellen Dateien arbeitet. 

OPEN 2,8,2,"ABC,S,W" 

CMD 2 
LIST 
PRINT#2 
CLOSE 2 

Nach Ausführung dieser Anweisungen befindet sich nun Ihr Programmli- 
sting in der sequentiellen Datei ABC, die Sie genauso wie jede andere se¬ 
quentielle Datei wieder lesen können. 
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6.3 Dateiverwaltung auf Kassette 

Auf Kassette kann aus verständlichen Gründen nur eine sequetielle Datei¬ 
verwaltung durchgeführt werden, da das Band keinen Direktzugriff erlaubt. 
Hier nun ein Beispiel zum Schreiben und Lesen von Daten auf Kassette: 

10 REM DATEN AUF KASSETTE SCHREIBEN 
20 OPEN 1,1,1,"TEST" 

30 DO 

40 READ A$ 

50 IF AS ="ENDE" THEN EXIT 
60 PRINT# 1, AS 
70 LOOP 
80 CLOSE 1 

90 DATA WURST, KAESE, EIER, FLEISCH, GEMUESE 
100 DATA OBST, HERING, MEHL, ROSINEN, ENDE 

Programme mit ähnlichem Aufbau von READ und DATA haben wir be¬ 
reits schon früher kennengelernt. Neu ist nur, daß diesmal die Ausgabe auf 
den Kassettenrecorder geleitet wird. 

Zunächst wird das logische File 1 geöffnet, das einen Ausgabekanal (Se¬ 
kundäradresse 1) auf die Datasette (Gerätenummer 1) legt. Daraufhin 
werden sämtliche Werte aus den DATA-Zeilen gelesen und mit PRINT# 1 
ausgegeben. Der String "ENDE" kennzeichnet auch hier wieder den letzten 
Wert, so daß nach Übertragung sämtlicher Strings die DO...LOOP-Schleife 
verlassen und die CLOSE-Anweisung ausgeführt wird. 

Nach Ausführung der OPEN-Anweisung erscheint 

PRESS PLAY & RECORD ON TAPE 

auf dem Bildschirm, so daß Sie erst die RECORD- und PLAY-Taste am 
Recorder drücken müssen, damit die Daten aufgezeichnet werden können. 
Während sämtlicher Kassettenoperationen bleibt der Bildschirm dunkel, was 
im Betriebssystem begründet ist. Ist die Aufzeichnung abgeschlossen, spulen 
Sie das Band am besten gleich wieder zurück. 

Nun wollen wir ein Programm schreiben, das die aufgezeichneten Daten 
wieder von Kassette liest. Hier das Listing: 
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10 REM DATEN VON KASSETTE LESEN 
20 OPEN 2,1,0,'TEST" 

30 INPUT#2, A$ 

40 PRINT A$ 

50 IF ST=0 THEN 30 
60 CLOSE 2 

Auch hier erscheint zunächst die Meldung 
PRESS PLAY ON TAPE 

die Sie auffordert, die Play-Taste zu drücken. Zeile 20 öffnet das File 2 
zum Lesen von Kassette, was sich durch die Sekundäradresse 0 ausdrückt. 
Daraufhin liest Zeile 30 jeden einzelnen Datenwert mit der INPUT#-An- 
weisung ein und ordnet ihn der Variablen A$ zu. Zeile 40 gibt die eingege¬ 
benen Werte zur Kontrolle auf dem Bildschirm aus. Zeile 50 fragt die 
Statusvariable ST ab. Diese reservierte Variable gibt an, ob der Datentrans¬ 
fer einwandfrei funktioniert, dann nämlich ist ihr Wert 0. Ist der letzte 
Wert eingelesen, also das Dateiende erreicht, erhält sie den Wert 64, also 
ungleich Null. Dann läuft das Programm zu Zeile 60 weiter, wo das 
logische File 2 geschlossen wird. 


6.4 Sequentielle Dateiverwaltung auf Diskette 

Dasselbe, was wir gerade mit der Kassette durchgeführt haben, gilt im 
Prinzip auch für das Floppylaufwerk. Der einzige Unterschied liegt in der 
OPEN-Anweisung und in der Möglichkeit, Fehlermeldungen des DOS ab¬ 
zufragen. Nachfolgend noch einmal dasselbe Programm für den Disketten¬ 
betrieb: 

10 REM DATEN AUF DISKETTE SCHREIBEN 
20 DOPEN# 1,"TEST",W 
25 IF DSoO THEN PRINT DS$ : GOTO 80 
30 DO 

40 READ A$ 

50 IF A$ ="ENDE" THEN EXIT 
60 PRINT# 1, A$ 

70 LOOP 
80 DCLOSE# 1 

90 DATA WURST, KAESE, EIER, FLEISCH, GEMUESE 
100 DATA OBST, HERING, MEHL, ROSINEN, ENDE 
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Wir verwenden hier in Zeile 20 die bequeme DOPEN-Anweisung, die sich 
auf das logische File 1 bezieht. Die neu eingefügte Zeile 25 prüft, ob eine 
Fehlermeldung des DOS vorliegt. In diesem Fall ist der Wert der reservier¬ 
ten Variablen DS ungleich Null und es erscheint die dazugehörige Fehler¬ 
meldung in der ebenfalls reservierten Variablen DS$. Ein Fehler kann z.B. 
auf treten, wenn eine Datei unter gleichem Namen bereits auf der Diskette 
existiert oder die Diskette schreibgeschützt (Kerbe am rechten Rand über¬ 
klebt) ist. In einem solchen Fall wird gar nicht erst versucht, Daten auf die 
Diskette zu schreiben, sondern sofort die DCLOSEAnweisung in Zeile 80 
ausgeführt. Das restliche Programm arbeitet genauso wie beim Kassettenbe¬ 
trieb. 

Zum Einlesen der Daten von Diskette wollen wir ein Programm verwenden, 
das die Daten nicht nur auf dem Bildschirm, sondern zusätzlich noch auf 
dem Drucker ausgibt. Es könnte z.B. so aussehen: 

10 REM DATEN VON DISKETTE LESEN UND AUSDRUCKEN 
20 DOPEN#2,"TEST" 

30 IF DSoO THEN PRINT DS$: GOTO 100 
40 OPEN 4,4 
50 INPUT#2, A$ 

60 PRINT A$ 

70 PRINT#4, A$ 

80 IF ST=0 THEN 50 
90 CLOSE 4 
100 DCLOSE#2 

Zeile 20 eröffnet die sequentielle Diskettendatei "TEST", diesmal aber zum 
Lesen, d.h. ohne durch ein Komma abgetrenntes W. Wie beim Schreiben 
wird auch hier in Zeile 30 der Fehlerkanal des DOS abgefragt und im Falle 
eines Fehlers die Fehlermeldung ausgegeben und daraufhin das Programm 
abgebrochen. Zeile 40 führt eine OPENAnweisung zur Druckerausgabe 
durch. Da wir keinen besonderen Druckmodus wünschen, können wir in 
diesem Fall auf die Sekundäradresse und ohnehin auf den Dateinamen ver¬ 
zichten, denn der Drucker nimmt keine Dateinamen an. Zeile 50 liest die 
Daten von der Floppy und legt sie zunächst in A$ ab. Zeile 60 gibt sie 
dann auf dem Bildschirm und Zeile 70 auf dem Drucker aus. Zeile 80 
überprüft wieder anhand der Statusvariablen ST das Dateiende. Ist dies 
noch nicht erreicht, springt das Programm zurück in Zeile 50, um den 
nächsten Datenwert einzulesen und auszugeben. Schließlich wird nach 
Erreichen des Dateiendes in Zeile 90 das logische File 4 für den Drucker 
und in Zeile 100 das File 2 für die Floppy wieder geschlossen. 
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Zum öffnen und Schließen der Diskettendatei haben wir hier die verein¬ 
fachten Anweisungen DOPEN und DCLOSE verwendet. Leser, die bereits 
früher mit dem C-64 gearbeitet haben, wissen, daß man auch mit den nor¬ 
malen OPEN- und CLOSE-Anweisungen arbeiten kann. Der Vollständigkeit 
halber wollen wir sie kurz betrachten. 

Zum Öffnen einer sequentiellen Ausgabedatei auf Floppy dient folgende 
OPEN-Anweisung: 

OPEN 1,8,2,"TEST,S,W" 

Soll die Datei zum Lesen geöffnet werden, ist folgendes einzugeben: 

OPEN 2,8,2,"TEST,S,R" 

Die Sekundäradresse ist für unsere Zwecke unerheblich und kann hier zwi¬ 
schen 2 und 14 liegen. 

Geschlossen wird die Datei ganz normal mit CLOSEI bzw. CLOSE2. Sie 
sehen also, daß bei Floppy-Operationen der Dateiname angibt, ob gelesen 
oder geschrieben werden soll. Hinter dem eigentlichen Dateinamen steht 
nochmals ,S,W bzw. ,S,R. Das S gibt an, daß eine sequentielle Datei er¬ 
öffnet werden soll, W steht für Schreiben und R für Lesen. 

Erfahrene Profis wissen vielleicht, daß man auf diese Weise auch ein nor¬ 
mal mit SAVE bzw. DSAVE abgespeichertes BASIC-Programm "lesen" kann 
und eröffnen die Programmdatei folgendermaßen: 

OPEN2,8,2,"ABC,P,R" 

Hinter dem eigentlichen Dateinamen, der in unserem Beispiel "ABC" lautet, 
steht ,P,R, wobei das P eine Programmdatei angibt, die "gelesen" werden 
soll. Mit "Lesen" ist jedoch nicht das einfache Einlesen mit INPUT# und 
die Ausgabe auf dem Bildschirm mit PRINT gemeint. Sollten Sie das ver¬ 
suchen, werden Sie wahrscheinlich die Erfahrung machen, daß Ihr Bild¬ 
schirm mit lauter undefinierbaren Zeichen übersät ist. Aber Sie wissen ja 
bereits, daß Programmdateien zum Teil aus Binärwerten bestehen, die - 
sollten sie fälschlicherweise als ASCII-Zeichen interpretiert werden - dieses 
Wirrwarr verursachen. Deshalb sind solche Spielereien nur dem versierten 
Profi zu empfehlen, der auch weiß, wie er mit den eingelesenen Zeichen 
umzugehen hat. 
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6.4.1 Adressenverwaltungsprogramm (sequentiell) 

Als ausführliches Beispiel für die sequentielle Dateiverwaltung auf Diskette 
wollen wir hier ein komplettes Adressenverwaltungsprogramm betrachten. 
Dieses Programm ist modular aufgebaut und menügesteuert. Es kann in 
leicht abgeänderter Form auch für jede andere Art von Dateiverwaltung 
eingesetzt werden. 

Nach dem Laden und Starten erscheint zunächst das Menü, das folgender¬ 
maßen aussieht: 


ADRESSENVERWALTUNG 


ADRESSEN SCHREIBEN/FORTSCHREIBEN 1 

ADRESSEN AENDERN/LOESCHEN 2 

ADRESSEN SORTIEREN 3 

ADRESSEN LADEN 4 

ADRESSEN ABSPEICHERN 5 

ADRESSEN AUSDRUCKEN 6 

ADRESSEN AUF ETIKETTEN AUSDRUCKEN 7 

ENDE E 

BITTE WAEHLEN SIE 


Wie Sie sehen, bietet dieses Programm verschiedene Möglichkeiten zur 
Datenbehandlung. Menüpunkt 1 dient zum Schreiben und Fortschreiben der 
Adressendatei. Schreiben bedeutet, daß Sie eine Datei, die vorher leer war. 
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von Anfang an mit Daten versehen. Mit Fortschreiben ist gemeint, daß eine 
Datei, die bereits angelegt wurde, nun erweitert werden soll. Die Datei 
kann vorher bereits auf Diskette abgespeichert gewesen sein oder gerade 
geschrieben und sortiert oder ausgedruckt werden usw. 

Wenn Sie nun Menüpunkt 1 auswählen, werden Sie aufgefordert, verschie¬ 
dene Daten einzugeben: 


ADRESSEN SCHREIBEN/FORTSCHREIBEN 


12 


ANREDE (0-5) ? 1 

NAME ? MEIER 

VORNAME ? FRANZ 

STRASSE ? BERGSTR. 47 

PLZ/ORT ? 8000 MUENCHEN 80 

NAECHSTE EINGABE - RETURN-TASTE DRUECKEN 

ZURUECK INS MENUE - LEERTASTE DRUECKEN 


Dies ist ein komplettes Beispiel, wie die Daten eingegeben werden müssen. 
Direkt unter der Überschrift befindet sich eine Zahl, die angibt, den wie¬ 
vielten Datensatz wir gerade bearbeiten. In diesem Fall ist es der zwölfte. 
Eine bisher leere Datei beginnt immer mit dem 1. Datensatz, während eine 
fortgeschriebene, die z.B. von der Diskette eingelesen wurde, mit dem 
nächstfolgenden Datensatz fortfährt. Lesen Sie z.B. eine Datei mit 58 
Datensätzen von der Diskette ein, erscheint beim Fortschreiben oben die 
Nummer 59. Die Datensätze werden zunächst in der Reihenfolge ihrer Ein¬ 
gabe abgelegt, ungeachtet der Tatsache, ob sie sich in alphabetischer Rei¬ 
henfolge befinden oder nicht. 

Bevor Sie die eigentlichen Daten eingeben, erscheint unter der fortlaufen¬ 
den Nummer zunächst nur die Aufforderung, den Code für die Anrede 
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einzugeben, während der Rest des Bildschirms noch leer bleibt. Bei der 
Anrede können Sie unter sechs Möglichkeiten auswählen: 

Code ANREDE 

0 keine 

1 HERRN 

2 FRAU 

3 FRAEULEIN 

4 HERRN UND FRAU 

5 FIRMA 

Diese Codes sollten Sie sich vorher merken oder notieren, da sie einfacher 
einzugeben sind, als wenn Sie jedesmal die Anrede ausschreiben. Nach dem 
Drücken der RETURN-Taste erscheint als nächstes die Aufforderung zur 
Eingabe des (Nach-)Namens. Sie geben ihn ein und drücken wiederum die 
RETURN-Taste. Das gleiche wiederholt sich dann für die Straße und den 
Ort mit Postleitzahl. 

Ist ein Datensatz komplett eingegeben, erhalten Sie unten im Bildschirm 
den Hinweis, entweder die RETURN- oder die Leertaste zu drücken. Letz¬ 
tere führt Sie wieder zurück ins Menü, während Sie mit der RETURN- 
Taste gleich zum nächsten Datensatz kommen. Der Vorgang wiederholt sich 
danach von vorne, allerdings mit einer um eins erhöhten Datensatz¬ 
nummer. 

Achten Sie darauf, daß die einzelnen Eingabewerte eine bestimmte Anzahl 
von Zeichen nicht überschreiten dürfen: 


Name 15 Zeichen 

Vorname 15 Zeichen 

Straße 20 Zeichen 

PLZ/Ort 21 Zeichen 

Kommen wir jetzt zum 2. Menüpunkt, der zum Ändern und Löschen von 
Adressen dient. Sie werden zunächst auf gefordert, den betreffenden Namen 
als Suchindex einzugeben. Daraufhin sucht das Programm, ob dieser Name 
in der Datei vorhanden ist. Wenn nein, erscheint ein Hinweis "NICHT 
GEFUNDEN" und Sie können den nächsten Namen suchen oder ins Menü 
zurückkehren. Wurde der Name dagegen gefunden, erscheint der komplette 
Datensatz auf dem Bildschirm, ähnlich wie unter Menüpunkt 1, wobei der 
Cursor über dem Anredecode steht. Sie können nun die Daten ändern und 
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abschließend die RETURN-Taste drücken. Wenn Sie keine Änderung vor¬ 
nehmen, drücken Sie jeweils nur die RETURN-Taste. Nach Beendigung 
des Korrekturvorgangs können Sie, wie in Punkt 1, entweder fortfahren 
(RETURN-Taste) oder ins Menü zurückkehren. 

Soll ein Datensatz gelöscht werden, wählen Sie ebenfalls Menüpunkt 2 und 
überschreiben den Anredecode mit dem Buchstaben L. Dann drücken Sie 
die RETURN-Taste, worauf der betreffende Datensatz aus der Datei ent¬ 
fernt wird. Durch den Löschvorgang rücken alle Datensätze mit höherer 
Nummer um eins nach unten, wodurch ihre Gesamtzahl um eins abnimmt. 

Menüpunkt 3 sortiert die Datensätze in alphabetischer Reihenfolge nach 
dem Shell-Sortierverfahren, das wir bereits besprochen haben. Die Num¬ 
mern der Datensätze ändern sich dadurch entsprechend. 

Wir kommen nun zu den reinen Floppy-Operationen (Menüpunkt 4 und 5). 
In beiden Fällen werden Sie aufgefordert, den Dateinamen einzugeben, 
unter dem die Adressen auf Diskette abgelegt sind bzw. abgelegt werden 
sollen. Das Programm prüft zunächst automatisch, ob die Floppy einge¬ 
schaltet ist, wenn nicht, werden Sie aufgefordert, dies zu tun. 

Funktioniert ein Schreib- bzw. Lesevorgang auf der Floppy nicht einwand¬ 
frei, erscheinen die betreffenden Original-Fehlermeldungen des Disketten- 
Betriebssystems (DOS) auf dem Bildschirm. Existiert beim Schreibvorgang 
bereits eine gleichnamige Datei, werden Sie gefragt, ob diese überschrieben 
werden darf. 

Die letzten beiden Menüpunkte dienen zum Ausdrucken der Datei. Punkt 6 
liefert einen normalen Listenausdruck, während Sie mit Punkt 7 Etiketten 
beschriften können. Dabei wird davon ausgegangen, daß die Etiketten ge¬ 
nau 9 Druckzeilen auseinander liegen. Sollten Sie Etiketten anderer Größe 
verwenden, können Sie das entsprechende Teilprogramm ab Zeile 2940 
durch Hinzufügen oder Entfernen von PRINT#4-Anweisungen leicht an¬ 
passen. Bei beiden Menüpunkten wird zunächst geprüft, ob der Drucker 
eingeschaltet ist. Wenn nicht, werden Sie aufgefordert, dies nachzuholen. 
Nachfolgend das komplette Programmlisting: 
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10 REM ADRESSENVERWALTUNGSPROGRAMM (SEQUENTIELL) 

20 REM===============-======-=============== 

30 REM 
40 REM 

50 MA=200:REM MAX.ANZAHL DER DATENSAETZE 
60 K=0:REM DATENSAETZE IM SPEICHER 
70 LN=15:REM ZEICHEN LAENGE NAMEN 
80 LV=15:REM ZEICHEN LAENGE VORNAMEN 
90 LS=20:REM ZEICHEN LAENGE STRASSE 
100 LO=21:REM ZEICHEN LAENGE PLZ/ORT 
110 LA=1:REM ZEICHEN LAENGE ANREDECODE 
120 N$=" 

130 DIM N$(MA) 

140 DIM AR$(5) 

150 AR$(0)="" 

160 AR$( 1 )="HERRN" 

170 AR$(2)="FRAU" 

180 AR$(3)="FRAEULEIN" 

190 AR$(4)="HERRN UND FRAU" 

200 AR$(5)="FIRMA" 

210 : 

220 : 

230 : 

240 REM MENUE 
250 PRINT"<CLR>" 

260 PRINT TAB( 10);"ADRESSENVERWALTUNG" 

270 PRINT TAB( 10);"==================" 

280 PRINT 
290 PRINT 


300 PRINT"ADRESSEN SCHREIBEN/FORTSCHREIBEN 1" 

310 PRINT 

320 PRINT'ADRESSEN AENDERN/LOESCHEN 2" 

330 PRINT 

340 PRINT’ADRESSEN SORTIEREN 3" 

350 PRINT 

360 PRINT’ADRESSEN LADEN 4" 

370 PRINT 

380 PRINT’ADRESSEN ABSPEICHERN 5" 

390 PRINT 

400 PRINT'ADRESSEN AUSDRUCKEN 6" 

410 PRINT 


420 PRINT'ADRESSEN AUF ETIKETTEN AUSDRUCKEN 7" 
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430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 


PRINT 

PRINT 

PRINT'E N D E E" 

PRINT 

PRINT 

PRINT"BITTE WAEHLEN SIE" 

GETKEY M$ 

IF M$="E" THEN END 
M=VAL(M$) 

IF M<1 OR M>7 THEN 490 

ON M GOSUB 580,980,1620,1930,2210,2590,2940 

GOTO 240 

. ■A 


REM ADRESSEN SCHREIBEN/FORTSCHREIBEN 
PRINT"<CLR>" 

PRINT 

PRINT 

PRINT" ADRESSEN SCHREIBEN/FORTSCHREIBEN " 

PRINT 
PRINT 
K=K+1 
PRINT K 

PRINT \, 

IF K>MA THEN PRINT'DATEI VOLL":GOTO 850 
PRINT"ANREDE (0-5)";:INPUTA$ 

A=VAL(A$) 

IF A<0 OR A>5 OR LEN(A$)<>1 THEN PRINT"<2xCRSR UP>" 

:GOTO 690 

PRINT 

PRINT'NAME ";:INPUT NA$ 

PRINT 

NA$=LEFT$(NA$+N$,LN) 

PRINT"VORNAME ";:INPUT NV$ 

PRINT 

NVS=LEFTS(NVS+N$,LV) 

PRINT'STRASSE ";:INPUT NS$ 

PRINT 

NS$=LEFT$(NS$+N$,LS) 

PRINT'TLZ, ORT ";:INPUT NOS 
NO$=LEFT$(NO$+N$,LO) 
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840 N$(K)=NA$+NV$+NS$+NO$+RIGHT$(STR$(A), 1) 

850 PRINT 
860 PRINT 

870 PRINT'NAECHSTE EINGABE - RETURN-TASTE DRUECKEN" 
880 PRINT 

890 PRINT"ZURUECK INS MENUE - LEERTASTE DRUECKEN" 
900 GETKEY M$ 

910 IF M$=CHR$(13) THEN 580 
920 IF M$=" " THEN 940 
930 GOTO 900 
940 RETURN 
950 : 

960 : 

970 : 

980 REM ADRESSEN AENDERN/LOESCHEN 
990 PRINT"<CLR>" 

1000 PRINT 
1010 PRINT 

1020 PRINT" ADRESSEN AENDERN/LOESCHEN" 

1030 PRINT 
1040 PRINT 

1050 PRINT"NAME ";:INPUT NA$ 

1060 NA$=LEFT$(NAS+N$,LN) 

1070 1=1 

1080 DO UNTIL I>K 

1090 IF LEFT$(N$(I),LN)=NA$ THEN 1150 
1100 1 = 1+1 
1110 LOOP 
1120 PRINT 

1130 PRINT"NICHT GEFUNDEN" 

1140 GOTO 1490 

1150 NA$=LEFT$(N$(I),LN) 

1160 NV$=MID$(N$(I),LN+1 ,LV) 

1170 NS$=MID$(N$(I),LN+LV+1 ,LS) 

1180 NO$=MID$(N$(I),LN+LV+LS+l,LO) 

1190'A$=RIGHT$(N$(I),1) V 

1200 PRINT I 
1210 PRINT 

1220 PRINT"ANREDE (0-5) ";A$ 

1230 PRINT 

1240 PRINT’NAME ";NA$ 

1250 PRINT 
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1260 PRINT"VORNAME ";NV$ 

1270 PRINT 

1280 PRINT'STRASSE ";NS$ 

1290 PRINT 

1300 PRINT'TLZ, ORT ";NO$ 

1310 PRINT"< 1 OxCRSR UP>" 

1320 PRINT"< 12xCRSR RIGHT>";:INPUT A$ 

1330 A=VAL(A$) 

1340 IF A$="L" THEN GOSUB 3250:GOTO 1490 

1350 IF A<0 OR A>5 OR LEN(A$)<>1 THEN PRINT"<2xCRSR UP>" 

:GOTO 1320 

1360 PRINT 

1370 PRINT"< 12xCRSR RIGHT>";:INPUT NA$ 

1380 PRINT 

1390 NA$=LEFT$(NA$+N$,LN) 

1400 PRINT"< 12xCRSR RIGHT>";:INPUT NV$ 

1410 PRINT 

1420 NV$=LEFT$(NV$+N$,LV) 

1430 PRINT"< 12xCRSR RIGHT>";:INPUT NS$ 

1440 PRINT 

1450 NS$=LEFT$(NS$+N$,LS) 

1460 PRINT"< 12xCRSR RIGHT>";:INPUT NOS 
1470 NO$=LEFT$(NO$+N$,LO) 

1480 N$(I)=NA$+NV$+NS$+NO$+RIGHT$(STR$(A), 1) 

1490 PRINT 
1500 PRINT 

1510 PRINT'NAECHSTE EINGABE - RETURN-TASTE DRUECKEN" 
1520 PRINT 

1530 PRINT’ZURUECK INS MENUE - LEERTASTE DRUECKEN" 

1540 GETKEY M$ 

1550 IF M$=CHR$(13) THEN 980 
1560 IF M$=" " THEN 1580 
1570 GOTO 1540 
1580 RETURN 
1590 : 

1600 : 

1610 : 

1620 REM ADRESSEN SORTIEREN 
1630 PRINT"<CLR>" 

1640 PRINT 
1650 PRINT 

1660 PRINT" ADRESSEN SORTIEREN" 
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1670 PRINT 
1680 PRINT 
1690 G=INT(K/2) 

1700 DO WHILE G>0 

1710 FOR I=G+1 TO K 

1720 J=I-G 

1730 DO WHILE J>0 

1740 IF N$(J)>N$(J+G) THEN BEGIN 

1750 A$=N$(J+G) 

1760 N$(J+G)=NS(J) 

1770 N$(J)=A$ 

1780 J=J-G 

1790 BEND:ELSE J=0 

1800 LOOP 

1810 NEXT 

1820 G=INT(G/2) 

1830 LOOP 
1840 PRINT 
1850 PRINT 

1860 PRINT" ZURUECK INS MENUE" 

1870 PRINT" BELIEBIGE TASTE DRUECKEN" 

1880 GETKEY M$ 

1890 RETURN 
1900 : 

1910 : 

1920 : 

1930 REM ADRESSENDATEI LADEN 
1940 GOSUB 3550 
1950 PRINT”<CLR>" 

I960 PRINT 
1970 PRINT 

1980 PRINT" ADRESSEN LADEN" 

1990 PRINT 
2000 PRINT 

2010 INPUT"DATEINAME";DN$ 

2020 PRINT 

2030 OPEN 2,8,2,DN$+",S,R" 

2040 K=0 

2050 IF DSoO THEN PRINT DS$:GOTO 2110 

2060 IF K=MA THEN PRINT'DATEI VOLL":GOTO 2110 

2070 K=K+1 

2080 PRINTK;"< 1 xCRSR UP>" 
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2090 INPUT#2,N$(K) 

2100 IF ST=0 THEN 2060 
2110 DCLOSE#2 
2120 PRINT 
2130 PRINT 

2140 PRINT" ZURUECK INS MENUE" 

2150 PRINT" BELIEBIGE TASTE DRUECKEN" 

2160 GETKEY M$ 

2170 RETURN 
2180 : 

2190 : 

2200 : 

2210 REM ADRESSENDATEI ABSPEICHERN 
2220 GOSUB 3550 
2230 PRINT"<CLR>" 

2240 PRINT 
2250 PRINT 

2260 PRINT" ADRESSEN ABSPEICHERN" 

2270 PRINT 
2280 PRINT 

2290 IF K=0 THEN PRINT’DATEI LEER":PRINT:GOTO 2500 
2300 INPUT"DATEINAME";DN$ 

2310 PRINT 

2320 OPEN 2,8,2,DN$+",S,W" 

2330 F=DS 

2340 IF F=0 THEN 2450 
2350 PRINT DS$ 

2360 CLOSE 2 

2370 IF F<>63 THEN 2500 

2380 PRINT 

2390 PRINT'DATEI UEBERSCHREIBEN ? (J/N)" 

2400 PRINT 
2410 GETKEY M$ 

2420 IF M$="J" THEN DN$="@:"+DN$:GOTO 2320 

2430 IF M$="N" THEN 2500 

2440 GOTO 2410 

2450 FOR 1=1 TO K 

2460 PRINT I;"<lxCRSR UP>" 

2470 PRINT#2,N$(I) 

2480 NEXT I 
2490 DCLOSE#2 
2500 PRINT 
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2510 PRINT 

2520 PRINT" ZURUECK INS MENUE" 

2530 PRINT" BELIEBIGE TASTE DRUECKEN" 
2540 GETKEY M$ 

2550 RETURN 
2560 : 

2570 : 

2580 : 

2590 REM ADRESSENDATEI AUSDRUCKEN 
2600 GOSUB 3370 
2610 PRINT"<CLR>" 

2620 PRINT 
2630 PRINT 

2640 PRINT" ADRESSEN AUSDRUCKEN" 

2650 PRINT 

2660 PRINT 

2670 OPEN4,4 

2680 FOR 1=1 TO K 

2690 PRINT#4,LEFT$(N$(I),LN); 

2700 PRINT#4," "; 

2710 PRINT#4,MID$(N$(I),LN+1 ,LV); 

2720 PRINT#4," "; 

2730 PRINT#4,MID$(N$(I),LN+LV+1 ,LS); 

2740 PRINT#4," 

2750 PRINT#4,MID$(N$(I),LN+LV+LS+1 ,LO); 

2760 PRINT#4," "; 

2770 PRINT#4,RIGHT$(N$(I), 1) 

2780 IF I-INT(I/64)*64=0 THEN BEGIN 

2790 FOR J=1 TO 8 

2800 PRINT#4 

2810 NEXT J 

2820 BEND 

2830 NEXT I 

2840 CLOSE 4 

2850 PRINT 

2860 PRINT 

2870 PRINT" ZURUECK INS MENUE" 

2880 PRINT" BELIEBIGE TASTE DRUECKEN" 
2890 GETKEY M$ 

2900 RETURN 
2910 : 

2920 : 
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2930 : 

2940 REM ADRESSEN AUF ETIKETTEN DRUCKEN 
2950 GOSUB 3370 
2960 PRINT"<CLR>" 

2970 PRINT 
2980 PRINT 

2990 PRINT" ADRESSEN AUF ETIKETTEN AUSDRUCKEN" 

3000 PRINT 

3010 PRINT 

3020 OPEN4,4 

3030 FOR 1=1 TO K 

3040 PRINT#4 

3050 PRINT#4 

3060 A=VAL(RIGHT$(N$(I), 1)) 

3070 PRINT#4,AR$(A) 

3080 PRINT#4,LEFT$(N$(I),LN+LV) 

3090 PRINT#4,MID$(N$(I),LN+LV+1 ,LS) 

3100 PRINT#4 

3110 PRINT#4,MID$(N$(I),LN+LV+LS+l,LO) 

3120 PRINT#4 
3130 PRINT#4 
3140 NEXT I 
3150 CLOSE 4 
3160 PRINT 
3170 PRINT 

3180 PRINT" ZURUECK INS MENUE" 

3190 PRINT" BELIEBIGE TASTE DRUECKEN" 

3200 GETKEY M$ 

3210 RETURN 
3220 : 

3230 : 

3240 : 

3250 REM DATENSATZ LOESCHEN 
3260 FOR J=I+1 TO K 
3270 N$(J-1)=N$(J) 

3280 NEXT J 
3290 K=K-1 

3300 PRINT"<8xCRSR DOWN>" 

3310 PRINT"GELOESCHT" 

3320 PRINT"<2xCRSR UP>" 

3330 RETURN 
3340 : 
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3350 : 

3360 : 

3370 REM ABFRAGE OB DRUCKER EINGESCHALTET 
3380 TRAP 3430 
3390 OPEN4,4,0," " 

3400 CLOSE 4 
3410 RETURN 
3420 : 

3430 IF ER<>5 THEN RESUME 3410 
3440 CLOSE 4 
3450 PRINT"<CLR>" 

3460 PRINT 
3470 PRINT 

3480 PRINT " BITTE DRUCKER EINSCHALTEN" 
3490 PRINT ” UND BELIEBIGE TASTE DRUECKEN" 
3500 GETKEY M$ 

3510 RESUME 
3520 : 

3530 : 

3540 : 

3550 REM ABFRAGE OB FLOPPY EINGESCHALTET 

3560 TRAP 3610 

3570 OPEN4,8,15,T 

3580 CLOSE4 

3590 RETURN 

3600 : 

3610 CLOSE4 

3620 IF ER<>5 THEN RESUME 3590 
3630 PRINT"<CLR>" 

3640 PRINT 
3650 PRINT 

3660 PRINT " BITTE FLOPPY EINSCHALTEN" 

3670 PRINT " UND BELIEBIGE TASTE DRUECKEN" 
3680 GETKEY M$ 

3690 RESUME 


Wir wollen uns nun einige wichtige Einzelheiten zum Programmaufbau an- 
sehen. Über die Größe der Datensätze geben die ersten Zeilen Auskunft, so 
daß Sie sie leicht Ihren eigenen Wünschen anpassen können. 

Zunächst gibt die Variable MA die maximale Anzahl der Datensätze an. Sie 
ist hier mit 200 vorbelegt, kann aber noch um einiges erhöht werden, falls 
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dies nötig sein sollte. Die einzige Begrenzung ist hierbei in der Größe des 
Variablenspeichers gegeben. 

Die Variable K gibt an, wieviele Datensätze sich gerade im Speicher befin¬ 
den. Sie kann an jeder Stelle des Programms abgefragt werden, sofern Sie 
noch zusätzliche Kontrollmöglichkeiten einbauen. Die folgenden Variablen 
LN, LV, LS und LO geben die Längen für die einzelnen Datenwerte an 
und können bei Bedarf ebenfalls verändert werden. 


Sämtliche Datenwerte eines Datensatzes bilden zusammen einen String, der 
genau 72 Zeichen lang und ein Element des Feldes N$(I) ist. Zeile 130 
führt die Dimensionierung für dieses eindimensionale Feld mit MA Ele¬ 
menten durch. 


In jedem Datensatz haben die einzelnen Werte ihren festen Platz, wie die 
folgende Aufstellung zeigt: 


Name 

Vorname 

Straße 

PLZ/Ort 

Anredecode 


15 Zeichen von 
15 Zeichen von 

20 Zeichen von 

21 Zeichen von 
1 Zeichen 


Position 1 bis 15 
Position 16 bis 29 
Position 31 bis 50 
Position 51 bis 71 
Position 72 


Die einzelnen Werte können mit Hilfe der Stringoperationen leicht aus dem 
Gesamtstring eliminiert bzw. wieder zu diesem zusammengesetzt werden. 
Werden bei der Eingabe die zulässigen Längen überschritten, werden alle 
zusätzlichen Zeichen abgeschnitten. Werden dagegen weniger Zeichen ein¬ 
gegeben, werden sie mit Leerzeichen auf gefüllt, so daß ihre vorgeschrie¬ 
bene Länge in jedem Fall konstant bleibt. 


Die einzelnen Anreden werden ebenfalls in einem Feld AR$(I) entspre¬ 
chend ihrem Code abgelegt. Wirklich ausgegeben werden sie aber nur beim 
Etikettenausdruck. 


Das Menü ist ähnlich aufgebaut wie dasjenige, das wir bereits im Pro¬ 
gramm zur Volumenberechnung verschiedener Körper kennengelernt haben. 
Die einzelnen Menüpunkte werden mit Hilfe der GETKEY-Anweisung in 
Zeile 490 als Strings gelesen und dann in eine numerische Variable umge¬ 
formt. Eine Ausnahme bildet lediglich der Punkt E, der das Programm be¬ 
endet. Schließlich ruft die ON...GOSUB-Anweiung in Zeile 530 die ent¬ 
sprechenden Routinen auf. 
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Das Unterprogramm ab Zeile 580 dient zur Eingabe und Aufbereitung der 
Eingabewerte, die gleichzeitig ihre vorgeschriebene Länge erhalten (s.o.). In 
Zeile 840 werden sie schließlich zum Gesamtstring N$(K) zusammengesetzt. 

Etwas komplizierter dagegen ist das Teilprogramm ab Zeile 980, das die 
Adressen löscht und ändert. Zunächst wird der gesuchte Name angefordert 
und sämtliche Datensätze nach ihm durchsucht. Wird der Datensatz mit dem 
betreffenden Namen gefunden, erhält die Variable I die entsprechende Da¬ 
tensatznummer, wird er dagegen nicht gefunden, erscheint der Hinweis 
"NICHT GEFUNDEN" auf dem Bildschirm. 

Daraufhin werden sämtliche Werte eines Datensatzes an derselben Stelle wie 
bei ihrer Eingabe unter Menüpunkt 1 auf dem Bildschirm ausgegeben. Zeile 
1310 setzt den Cursor wieder zurück in die oberste Eingabezeile (Anrede¬ 
code), wobei dann jeder Wert, der bereits mit PRINT ausgegeben wurde, 
mit einer INPUT-Anweisung "überlagert" wird. Dabei muß der Cursor je¬ 
weils um 12 Zeichen nach rechts bewegt werden, ohne die darunterliegen¬ 
den Angaben zu überschreiben. Dank dieses Tricks ist es möglich, daß 
Ihnen bei INPUT der Eingabewert bereits vorpräsentiert wird, so daß Sie 
ihn nur, falls erforderlich, korrigieren müssen, um ihn dann durch Drücken 
der RETURN-Taste wieder ins Programm zu übernehmen. 

Zum Löschen eines Datensatzes wird der Anredecode außer auf die sonst 
zulässigen Werte von 0 bis 5 auch auf den Buchstaben L abgefragt (Zeile 
1340). Daraufhin wird das Unterprogramm in Zeile 3250 aufgerufen, das 
den Löschvorgang vornimmt und alle Datensätze mit höherer Nummer um 
eine Stelle nach unten aufrückt. Die derzeitige Gesamtanzahl der Datensätze 
im Speicher wird dabei um eins reduziert (Variable K). 

Alphabetisch sortiert werden die Datensätze im Unterprogramm ab Zeile 
1620, wobei das schnelle Shell-Sortierverfahren zur Anwendung kommt, das 
wir bereits kennengelernt haben. 

In den nächsten beiden Unterprogrammen werden die Datensätze von Dis¬ 
kette gelesen bzw. auf sie geschrieben. Allerdings hätten wir statt der 
OPEN-Anweisung auch DOPEN verwenden können. Da in unserem Beispiel 
der Dateiname nicht als Konstante, sondern als Variable DNS vorgegeben 
ist, funktioniert die Anweisung aber nur, wenn wir DNS in Klammern 
setzen, wie z.B. 


DOPEN#2, (DNS) 
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Da beim Einlesen die Anzahl der Datensätze zunächst noch unbekannt ist. 
fragen wir mit Hilfe der Statusvariablen ST das Dateiende ab. In diesem 
Fall nimmt sie den Wert 64 an, während sie ansonsten Null ist, sofern kein 
anderer Fehler auf tritt. 

Die Fehlerabfrage des Disketten-Betriebssystems erfolgt über die reservierte 
Variable DS bzw. DS$. Tritt ein Fehler auf, wird die Floppy-Operation ab¬ 
gebrochen. Eine Ausnahme bildet beim Schreiben der Fehlercode 63 (FILE 
EXISTS), der auftritt, wenn eine gleichnamige Datei bereits auf der Dis¬ 
kette vorhanden ist. Hier wird der Benutzer zunächst gefragt, ob er ein 
Überschreiben dieser Datei wünscht. Ist dies der Fall, wird dem Datei¬ 
namen ein Klammeraffe mit Doppelpunkt vorangestellt, damit die gleichna¬ 
mige Datei überschrieben werden kann. 

Vor dem Einsprung in die Floppy-Routinen wird zunächst das Unterpro¬ 
gramm in Zeile 3550 aufgerufen, das mit Hilfe der TRAP-Anweisung fest¬ 
stellt, ob die Floppy eingeschaltet ist. Ist dies nicht der Fall, wird der Be¬ 
diener aufgefordert, es zu tun. Eine ähnliche Routine steht ab Zeile 3370 
für den Drucker. 

Zu den Druckerroutinen selbst (Zeile 2590 bzw. 2940) gibt es nicht mehr 
viel zu sagen. Lediglich beim Listenausdruck findet ab Zeile 2780 eine Prü¬ 
fung statt, ob bereits 64 Zeilen hintereinander ausgedruckt wurden. Ist dies 
der Fall, wird durch 8 Leerzeilen ein Seitenvorschub erzeugt. 

Hier noch ein wichtiger Hinweis für den Fall, daß Sie das Programm für 
Ihre eigenen Belange anpassen möchten. Die Länge des Gesamtstrings, der 
auf Diskette abgespeichert wird, darf auf keinen Fall 160 Zeichen über¬ 
schreiten, da der BASIC-Eingabepuffer ansonsten überläuft. Wenn Sie 
längere Datensätze verarbeiten möchten, empfiehlt es sich, sie in mehrere 
Strings zu zerlegen und diese hintereinander abzuspeichern (z.B. N1$(I) und 
N2$(I)). Beachten Sie aber, daß kein String im Speicher länger als 255 Zei¬ 
chen sein darf. 
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6.5 Relative Dateiverwaltung auf Diskette 

Die Dateien, die wir bisher kennengelernt haben, befanden sich ausschließ¬ 
lich im Arbeitsspeicher des Computers und konnten nur komplett bearbeitet 
werden. Ebenso wurden sie als Ganzes auf Diskette gespeichert und wieder 
geladen. Nehmen wir einmal das sequentielle Adressenverwaltungsprogramm 
als Beispiel, mit dem wir nur so viele Adressen erfassen und verarbeiten 
können, wie der Speicher des Computers aufnehmen kann. 

Wollen wir auch nur eine einzige Adresse ändern, müssen wir zuvor sämt¬ 
liche Datensätze der sequentiellen Datei einiesen und nach der Bearbeitung 
wieder neu auf Diskette schreiben. Sie können sich sicher vorstellen, daß 
dies eine ziemlich aufwendige Angelegenheit ist. 

Diese Einschränkung ist weitestgehend durch die relative Dateiverwaltung 
zu umgehen. Dabei sind die einzelnen Datensätze nicht im Speicher des 
Computers, sondern in sogenannten Records auf der Diskette abgelegt, wo¬ 
bei jedem einzelnen Record ein Datensatz zugeordnet ist. 

Record ist ein amerikanisches Wort und heißt übersetzt ebenfalls Datensatz. 
Zur besseren Unterscheidung treffen wir hier deshalb die Vereinbarung, 
daß wir unter "Record" den auf der Diskette reservierten Speicherplatz für 
einen Eintrag verstehen, während ein "Datensatz" weiterhin das bleibt, was 
er bisher war, nämlich ein Eintrag in der Datei, der mehrere Datenposten 
oder Werte umfassen kann. In unserer Adressenverwaltung z.B. enthält ein 
Datensatz Anredecode, Nachname, Vorname, Straße und PLZ/Ort. 

Beim Einrichten einer relativen Datei wird eine bestimmte Anzahl von Re¬ 
cords mit fester Länge reserviert, die bis zu 254 Zeichen umfassen können. 
Diese Records belegen, ähnlich wie bei einer sequentiellen Datei mit kon¬ 
stanter Datensatzlänge, fortlaufende, durch interne Zeiger verknüpfte Sek¬ 
toren, wobei das DOS aufgrund einer intern angelegten Tabelle (Sidesek- 
toren) schnell auf jeden einzelnen Record zugreifen kann. Dazu ist lediglich 
die fortlaufende Nummer des Records anzugeben. 
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Bevor wir jedoch mit einer relativen Datei arbeiten können, müssen wir sie 
anlegen. Betrachten wir dazu folgendes Beispiel: 

10 DOPEN# 1, "REL-DATEI", L30 
20 GOSUB 1000 
30 RECORD# 1, 50 
40 GOSUB 1000 
50 PRINT# 1, CHR$(255) 

60 GOSUB 1000 
70 DCLOSE# 1 
80 END 

1000 IF DS=0 OR DS=50 THEN RETURN 
1010 PRINT DS$ 

1020 END 

Zunächst öffnet die DOPEN-Anweisung in Zeile 10 das File 1 für die Da¬ 
tei "REL-DATEI". Dies geschieht genauso wie das Öffnen einer sequentiel¬ 
len Datei, jedoch mit dem zusätzlichen Parameter L30. Dieser Parameter 
gibt an, daß die Datei Records von 30 Zeichen Länge erhalten soll. Damit 
ist aber noch kein Speicherplatz für die Records reserviert und noch nicht 
bestimmt, wieviele Records die Datei insgesamt erhalten soll. Im Anschluß 
an die DOPEN-Anweisung wird das Unterprogramm in Zeile 1000 aufge- 
rufen, welches prüft, ob das DOS eine Fehlermeldung erzeugt hat. 

Zeile 30 enthält nun die RECORD-Anweisung, die sich auf das in der 
DOPEN-Anweisung angegebene File 1 bezieht und den internen Record- 
Zeiger auf den 50. Record setzt. Da dieser noch gar nicht existiert, er¬ 
scheint zunächst ein DOS-Fehler mit der Nummer 50 (RECORD NOT 
PRESENT), den wir aber ruhigen Gewissens ignorieren können. Deshalb ist 
das Unterprogramm ab Zeile 1000 so auf gebaut, daß es beim Auftreten 
dieses Fehlers sofort ins Hauptprogramm zurückspringt. 

Beschrieben und wirklich angelegt wird der 50. Record erst in Zeile 50. Die 
Schreibanweisung PRINT# 1,CHR$(255) belegt ihn nämlich mit dem Kon- 
trollcode CHR$(255). Bei diesem Schreibvorgang stellt das DOS fest, daß 
die vorangehenden 49 Records noch nicht existieren und legt sie gleichzei¬ 
tig mit an, indem es ebenfalls den Code CHR$(255) in sie einträgt. Zeile 70 
schließt das File, womit das Anlegen der relativen Datei beendet ist. 
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Soll eine relative Datei zu einem späteren Zeitpunkt erweitert werden, sind 
die gleichen Anweisungen nochmals auszuführen, wobei jedoch in der 
RECORD-Anweisung die gewünschte Anzahl der Records angegeben sein 
muß. Dadurch werden die bereits vorher angelegten und beschriebenen Re¬ 
cords nicht berührt. Die Recordlänge in der DOPEN-Anweisung muß mit 
derjenigen in der bereits bestehenden Datei übereinstimmen und kann 
nachträglich nicht mehr geändert werden. Schließlich ist noch zu beachten, 
daß eine relative Datei maximal 720 Records enthalten darf. 

Die folgenden beiden Beispiele zeigen, wie wir auf Records einer bereits 
bestehenden Datei zugreifen können, um Daten zu schreiben oder zu lesen. 
Dabei arbeiten wir wieder mit der relativen Datei "REL-DATEI", die wir 
soeben angelegt haben: 

5 REM RECORD SCHREIBEN 
10 DOPEN# 1,"REL-DATEI" 

20 GOSUB 1000 

30 INPUT "WELCHER RECORD"; R 
40 RECORD# 1, R, 1 
50 GOSUB 1000 

60 PRINT# 1, "DIES IST DER"; R;". RECORD" 

70 GOSUB 1000 
80 DCLOSE# 1 
90 END 

1000 IF DS=0 OR DS=50 THEN RETURN 
1010 PRINT DS$ 

1020 END 

Zeile 10 eröffnet wieder die relative Datei "REL-DATEI". Diesmal brau¬ 
chen wir jedoch keinen Parameter, der die Länge der einzelnen Records 
angibt, denn wir haben die Datei ja bereits angelegt und wollen lediglich 
auf einzelne Records zugreifen. 

In Zeile 30 geben Sie jetzt die Nummer des Records ein, den Sie beschrei¬ 
ben möchten. Daraufhin setzt Zeile 40 mit der RECORD-Anweisung den 
internen Zeiger auf den betreffenden Record. Der letzte Parameter, die 
Ziffer 1, gibt an, daß der Record ab der ersten Stelle beschrieben werden 
soll. Wir könnten auch jede beliebige andere Position innerhalb der Record¬ 
länge angeben, müssen aber darauf achten, daß der Datensatz in den Re¬ 
cord noch hineinpaßt. Für die Länge des Records sollte immer ein Zeichen 
mehr reserviert werden, als der Datensatz umfaßt, da dieser beim Schreiben 
jedesmal mit einem Carriage Return (CHR$(13)) abgeschlossen wird. 
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Nachdem nun der Record und die Position in ihm festgelegt sind, können 
wir Daten in ihn hineinschreiben. Zu Übungszwecken schreiben wir jeweils 
eine Kennzeichnung hinein, damit wir später feststellen können, ob unser 
Programm richtig arbeitet. Wählen wir z.B. den 10. Record aus, so erhält 
dieser den Datensatz 

DIES IST DER 10. RECORD 

Einschließlich dem Carriage Return liegt die Länge des Datensatzes mit 24 
Zeichen noch innerhalb der Recordlänge von 30 Zeichen. 

Es besteht grundsätzlich die Möglichkeit, in einem Record mehrere Eintra¬ 
gungen vorzunehmen, z.B. Artikelnummer (6 Zeichen), Artikelbezeichnung 
(20 Zeichen) und Preis (8 Zeichen). Zur Bestimmung der erforderlichen 
Recordlänge ist allerdings zu jedem einzelnen Datenwert noch ein Zeichen 
hinzuzuzählen, da auch hier ein Carriage Return jeweils mit abgespeichert 
wird. In diesem Fall müßte also die Recordlänge mindestens 6+1+20+1+8+1 
= 37 Zeichen umfassen, wobei die Artikelnummer an der 1., die Artikelbe¬ 
schreibung an der 8. und der Preis an der 29. Stelle im Record beginnt. Für 
den Eintrag jeder dieser Werte muß die RECORD-Anweisung mit der ent¬ 
sprechenden Positionierung erneut ausgeführt werden, bevor die Werte mit 
PRINT# geschrieben werden können. Auch darf in einem solchen Fall der 
Record nur von vorne nach hinten beschrieben werden, da anderenfalls die 
hinteren Einträge zerstört werden. 

In unserem Fall heißt dies, daß wir zuerst die Artikelnummer, dann die 
Artikelbeschreibung und schließlich den Preis eintragen müssen. Würden 
wir nämlich die Artikelnummer zuletzt eintragen, würden Artikelbezeich¬ 
nung und Preis gelöscht. 

Aber nun zurück zu unserem Beispiel. Wir wollen jetzt einmal sehen, ob 
der 10. Record (oder ein anderer) den richtigen Eintrag erhalten hat. Dazu 
schreiben wir ein kleines Programm, das die Datensätze wieder einliest und 
auf dem Bildschirm ausgibt: 
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5 REM RECORD LESEN 
10 DOPEN#l/'REL-DATEI" 

20 GOSUB 1000 

30 INPUT "WELCHER RECORD"; R 
40 RECORD# 1, R, 1 
50 GOSUB 1000 
60 INPUT# 1, A$ 

70 GOSUB 1000 
80 PRINT A$ 

90 DCLOSE#l 
100 END 

1000 IF DS=0 OR DS=50 THEN RETURN 
1010 PRINT DS 
1020 END 

Dieses Programm ist ähnlich aufgebaut, wie dasjenige zum Schreiben von 
Records. Statt einer PRINT#- enthält es diesmal eine INPUT#-Anweisung, 
die den Record liest und der Variablen A$ zuordnet, deren Inhalt dann auf 
dem Bildschirm erscheint. Haben wir nun, wie oben erklärt, den 10. Record 
korrekt geschrieben, muß er nach Ausführung des Programms wieder gele¬ 
sen werden können und auf dem Bildschirm erscheinen: 

DIES IST DER 10. RECORD 

READY. 

Selbstverständlich kann auch beim Lesen an jeder beliebigen Stelle im 
Record begonnen werden; dabei ist, wie beim Schreibvorgang, die entspre¬ 
chende Position in der RECORD-Anweisung anzugeben. In diesem Fall 
wird der Inhalt bis zum nächsten Carriage-Return ausgelesen. 
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6.5.1 Adressenverwaltungsprogramm (relativ) 

Das im letzten Abschnitt besprochene sequentielle Adressenverwaltungspro¬ 
gramm wurde nachfolgend für die relative Dateiverwaltung umgeschrieben. 
Dabei befinden sich die Datensätze nicht mehr im Speicher, sondern in 
einer relativen Datei auf Diskette. 

Jedesmal, wenn ein Datensatz bearbeitet werden soll, wird er entweder neu 
eingegeben oder einzeln aus der relativen Datei gelesen und nach der Bear¬ 
beitung wieder auf Diskette geschrieben. Doch woher weiß nun das Pro¬ 
gramm, in welchem Record sich welche Adresse befindet? 

Wird die erste eingegebene Adresse in Record Nr. 1, die zweite in Record 
Nr. 2 usw. abgelegt, ist die Sache noch relativ einfach, denn wir müssen 
dann nur die betreffende Recordnummer aufrufen. Schwieriger wird es, 
wenn wir die Adressen alphabetisch sortiert oder einzelne Adressen aus der 
Datei entfernt haben. 

Des Rätsels Lösung heißt: indexsequentielle Datei Verwaltung. Indexsequen¬ 
tiell bedeutet, daß von jedem Record die Recordnummer und ein spezieller 
Index zusätzlich in einer sequentiellen Datei abgelegt wird, die zusammen 
mit der relativen Datei auf Diskette geschrieben wird. Dieser Index dient 
dann als Suchkriterium zum Auffinden eines Datensatzes. 

Für unser Adressenverwaltungsprogramm wurde der Name als Index ge¬ 
wählt. Bevor nun Datensätze angelegt oder bearbeitet werden können, wird 
zunächst die Indexdatei in den Arbeistspeicher des Computers geladen. Sie 
bleibt dort solange, wie wir mit der relativen Datei arbeiten und wird im 
Anschluß daran wieder auf Diskette geschrieben. 

Wenn wir nun einen Datensatz anlegen, "weiß" die Indexdatei, welche Re¬ 
cords bereits belegt und welche noch frei sind. Sie sucht den nächstverfüg¬ 
baren Record heraus und legt dort den Datensatz ab. Gleichzeitig erhält die 
Indexdatei einen neuen Eintrag, der den Nachnamen als Index und die 
dazugehörige Recordnummer enthält. 

Suchen wir nun umgekehrt den Datensatz zum Namen Müller, wird zu¬ 
nächst die Indexdatei durchsucht, um festzustellen, ob der Datensatz in der 
Datei enthalten ist. Ist dies der Fall, steht auch gleichzeitig die Record¬ 
nummer zur Verfügung, die dann leicht aufgerufen werden kann. 
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Bei der sequentiellen Dateiverwaltung benötigten wir keine zusätzliche In¬ 
dexdatei, da ja sämtliche Datensätze zu jeder Zeit vollständig im Speicher 
abgelegt waren und wir sie nur nach dem richtigen Namen durchsuchen 
mußten. Natürlich wäre es auch möglich, analog zur sequentiellen Dateiver¬ 
waltung sämtliche Records von Diskette einzulesen, um einen bestimmten 
Namen ausfindig zu machen. Dies ist jedoch eine sehr mühsame und zeit¬ 
raubende Angelegenheit, da das Einlesen von Diskette viel mehr Zeit in 
Anspruch nimmt, als ein Feld im Arbeitsspeicher zu durchsuchen. 

Die Indexdatei benötigt außerdem viel weniger Speicherplatz als die ge¬ 
samte Datei, was zusätzlich Speicherplatzproblemen entgegenwirkt. Wenn 
wir nun unsere Adressendatei alphabetisch sortieren, geschieht dies letztlich 
nur mit der Indexdatei, wobei die Datensätze selbst im gleichen Record ge¬ 
speichert bleiben. Ähnliches geschieht auch beim Löschen eines Datensatzes. 
Dabei wird nicht der betreffende Record, sondern lediglich der Eintrag in 
der Indexdatei gelöscht bzw. für neue Einträge freigegeben. 

Bevor wir uns detailliert mit unserem Programm befassen, werfen wir zu¬ 
nächst einen Blick auf das Menü, das auch hier nach dem Starten des Pro¬ 
gramms auf dem Bildschirm erscheint: 


ADRESSENVERWALTUNG 


ADRESSEN SCHREIBEN/FORTSCHREIBEN 


ADRESSEN AENDERN/LOESCHEN 


2 


ADRESSEN SORTIEREN 


3 


RELATIVE DATEI OEFFNEN 


4 


RELATIVE DATEI ANLEGEN 


5 


ADRESSEN AUSDRUCKEN 


6 


ADRESSEN AUF ETIKETTEN AUSDRUCKEN 7 


ENDE 


E 


BITTE WAEHLEN SIE 
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Vielleicht ist Ihnen aufgefallen, daß die meisten Menüpunkte mit denen im 
sequentiellen Adressenverwaltungsprogramm identisch sind, und sich ledig¬ 
lich die Punkte 4 und 5 unterscheiden. 

Wir wissen bereits, daß wir eine relative Datei anlegen müssen, bevor wir 
darin Eintragungen vornehmen können. Genau dies geschieht durch den 
Menüpunkt 5. Zusätzlich wird hier noch die Indexdatei erzeugt und auf 
Diskette geschrieben. Wenn Sie sich jetzt das Disketten-Inhaltsverzeichnis 
ansehen, enthält es eine relative und eine sequentielle Datei, die beide neu 
angelegt sind, aber noch keine Einträge enthalten. Damit es keine Ver¬ 
wechslungen mit den Dateinamen gibt, erhält die relative Datei den von Ih¬ 
nen gewählten Namen und die sequentielle Indexdatei den gleichen Namen 
mit einem angehängten "-P. Wenn Sie nun z.B. eine Datei unter dem Na¬ 
men "KUNDEN" anlegen, erhält die relative Datei den Namen "KUNDEN", 
während er für die Indexdatei "KUNDEN-I" lautet. 

Bevor Sie Datensätze anlegen oder bearbeiten können, müssen Sie auf jeden 
Fall Menüpunkt 4 anwählen, der die relative Datei öffnet. Öffnen ist hier 
nicht nur unbedingt im Sinne der OPEN- bzw. DOPEN-Anweisung zu ver¬ 
stehen, sondern bedeutet vielmehr eine Initialisierung der Adressendatei. 
Dabei wird die Indexdatei in den Speicher geladen und gleichzeitig festge¬ 
stellt, welche Datensätze belegt und welche noch frei sind. 

Erst jetzt können Sie daran gehen, Adressen einzugeben oder sie anderwei¬ 
tig zu bearbeiten. Die restlichen Menüpunkte haben für den Bediener die 
gleiche Funktion wie bei der sequentiellen Adressenverwaltung. Nur bei 
Beendigung des Programms muß hier unbedingt die E-Taste gedrückt wer¬ 
den, damit die Indexdatei auf Diskette geschrieben werden kann. Wenn Sie 
dies vergessen und den Computer einfach ausschalten oder das Programm 
beispielsweise mit der STOP-Taste oder dem Reset-Schalter abbrechen, 
kann es unter Umständen zu erheblichen Fehlern beim späteren Wiederein¬ 
lesen der Datensätze kommen. 


Nachfolgend das Programmlisting: 
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10 REM ADRESSEN VERWALTUNGSPROGRAMM (RELATIV) 

20 REM=============================-====== 

30 REM 
40 REM 

50 MA=200:REM MAX.ANZAHL DER DATENSAETZE 

60 K=0:REM DATENSAETZE IM SPEICHER 

70 LN=15:REM ZEICHEN LAENGE NAMEN 

80 LV=15:REM ZEICHEN LAENGE VORNAMEN 

90 LS=20:REM ZEICHEN LAENGE STRASSE 

100 LO=21:REM ZEICHEN LAENGE PLZ/ORT 

110 LA=1:REM ZEICHEN LAENGE ANREDECODE 

120 FL=0:REM FLAG OB DATEI IM SPEICHER 

130 L=LN+LV+LS+LO+LA+l 

140 G$= M **************************" 

150 N$=" 

160 DIM N$(MA) 

170 DIM AR$(5) 

180 AR$(0)="" 

190 AR$( 1 )="HERRN" 

200 AR$(2)="FRAU" 

210 AR$(3)="FRAEULEIN" 

220 AR$(4)="HERRN UND FRAU" 

230 AR$(5)="FIRMA" 

240 : 

250 : 

260 : 

270 REM MENUE 
280 PRINT"<CLR>" 

290 PRINT TAB(10);"ADRESSENVERWALTUNG" 

300 PRINT TAB( 10);"==================" 

310 PRINT 
320 PRINT 


330 PRINT"ADRESSEN SCHREIBEN/FORTSCHREIBEN 1" 
340 PRINT 

350 PRINT"ADRESSEN AENDERN/LOESCHEN 2" 

360 PRINT 

370 PRINT"ADRESSEN SORTIEREN 3" 

380 PRINT 

390 PRINT'RELATIVE DATEI OEFFNEN 4" 

400 PRINT 

410 PRINT'RELATIVE DATEI ANLEGEN 5" 

420 PRINT 
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430 PRINT'ADRESSEN AUSDRUCKEN 6" 

440 PRINT 

450 PRINT'ADRESSEN AUF ETIKETTEN AUSDRUCKEN 7" 

460 PRINT 
470 PRINT 

480 PRINT'E N D E E" 

490 PRINT 
500 PRINT 

510 PRINT'BITTE WAEHLEN SIE" 

520 GETKEY M$ 

530 IF M$="E" THEN 4330 
540 M=VAL(M$) 

550 IF M<1 OR M>7 THEN 520 

560 ON M GOSUB 610,1130,1940,2250,2560,3020,3440 

570 GOTO 270 

580 : 

590 : 

600 : 

610 REM ADRESSEN SCHREIBEN/FORTSCHREIBEN 
620 GOSUB 4150 
630 PRINT"<CLR>" 

640 PRINT 
650 PRINT 

660 PRINT" ADRESSEN SCHREIBEN/FORTSCHREIBEN " 

670 PRINT 
680 PRINT 

690 IF DN$="" THEN PRINT’BITTE DATEI OEFFNEN":GOTO 1030 

700 OPEN5,8,5,DN$:CLOSE5 

710 IF DSoO THEN PRINT DS$:GOTO1030 

720 K=K+1 

730 PRINT K 

740 PRINT 

750 IF K>MA THEN PRINT'DATEI VOLL":GOTO1000 
760 PRINT'ANREDE (0-5)";:INPUT A$ 

770 A=VAL(A$) 

780 IF A<0 OR A>5 OR LEN(A$)<>1 THEN PRINT"<2xCRSR UP>" 

:GOTO760 

790 PRINT 

800 PRINT'NAME ";:INPUTNA$ 

810 PRINT 

820 NA$=LEFT$(NA$+N$,LN) 

830 PRINT'VORNAME ";:INPUTNV$ 
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840 PRINT 

850 NV$=LEFT$(NV$+N$,LV) 

860 PRINT"STRASSE ";:INPUTNS$ 

870 PRINT 

880 NS$=LEFT$(NS$+N$,LS) 

890 PRINT'TLZ, ORT ";:INPUTNO$ 

900 NO$=LEFT$(NO$+N$,LO) 

910 R$=NA$+NV$+NS$+NO$+RIGHT$(STR$(A), 1) 

920 OPEN2,8,2,DN$ 

930 D=VAL(MID$(N$(K),LN+1,10)) 

950 RECORD#2,D, 1 
960 PRINT#2,R$ 

970 DCLOSE#2 
980 FL=1 

990 N$(K)=NA$+STR$(D) 

1000 PRINT 
1010 PRINT 

1020 PRINT"NAECHSTE EINGABE - RETURN-TASTE DRUECKEN" 
1030 PRINT 

1040 PRINT"ZURUECK INS MENUE - LEERTASTE DRUECKEN" 
1050 GETKEY M$ 

1060 IF M$=CHR$(13) AND DN$<>"" THEN 610 
1070 IF M$=" " THEN CLOSE2:GOTO 1090 
1080 GOTO 1050 
1090 RETURN 
1100 : 

1110 : 

1120 : 

1130 REM ADRESSEN AENDERN/LOESCHEN 
1140 GOSUB 4150 
1150 PRINT"<CLR>" 

1160 PRINT 
1170 PRINT 

1180 PRINT" ADRESSEN AENDERN/LOESCHEN" 

1190 PRINT 
1200 PRINT 

1210 IF DN$="" THEN PRINT'BITTE DATEI OEFFNEN":GOTO1840 

1220 OPEN5,8,2,DN$:CLOSE5 

1230 IF DSoO THEN PRINT DS$:GOTO1840 

1240 PRINT'NAME ";:INPUT NA$ 

1250 NA$=LEFT$(NA$+N$,LN) 

1260 1=1 
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1270 DO UNTIL I>K 

1280 IF LEFT$(N$(I),LN)=NA$ THEN 1340 
1290 1=1+1 
1300 LOOP 
1310 PRINT 

1320 PRINT'NICHT GEFUNDEN” 

1330 GOTO1810 
1340 OPEN2,8,2,DN$ 

1350 D=VAL(MID$(N$(I),LN+1,10)) 

1370 RECORD#2,D, 1 
1380 INPUT#2,R$ 

1390 DCLOSE#2 

1400 NA$=LEFT$(R$,LN) 

1410 NV$=MID$(R$,LN+1,LV) 

1420 NS$=MID$(R$,LN+LV+1,LS) 

1430 NO$=MID$(R$,LN+LV+LS+l ,LO) 

1440 A$=RIGHT$(R$, 1) 

1450 PRINTI 
1460 PRINT 

1470 PRINT"ANREDE (0-5) ";A$ 

1480 PRINT 

1490 PRINT'NAME ";NA$ 

1500 PRINT 

1510 PRINT"VORNAME ";NV$ 

1520 PRINT 

1530 PRINT'STRASSE ";NS$ 

1540 PRINT 

1550 PRINT'TLZ, ORT ";NO$ 

1560 PRINT"< 1 OxCRSR UP>" 

1570 PRINT"< 12xCRSR RIGHT>";:INPUT A$ 

1580 A=VAL(A$) 

1590 IF A$="L" THEN GOSUB 3820:GOTO 1810 

1600 IF A<0 OR A>5 OR LEN(A$)<>1 THEN PRINT"<2xCRSR UP>" 

:GOTO 1570 

1610 PRINT 

1620 PRINT"< 12xCRSR RIGHT>";:INPUT NA$ 

1630 PRINT 

1640 NA$=LEFT$(NA$+N$,LN) 

1650 PRINT"< 12xCRSR RIGHT>";:INPUT NV$ 

1660 PRINT 

1670 NV$=LEFTS(NV$+N$,LV) 

1680 PRINT"< 12xCRSR RIGHT>";:INPUT NS$ 
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1690 PRINT 

1700 NS$=LEFT$(NS$+N$,LS) 

1710 PRINT"< 12xCRSR RIGHT>”;:INPUT NOS 
1720 NO$=LEFT$(NO$+N$,LO) 

1730 R$=NA$+NV$+NS$+NO$+RIGHT$(STR$(A), 1) 

1740 OPEN 2,8,2,DN$ 

1750 D=VAL(MID$(N$(I),LN+1,10)) 

1770 RECORD#2,D, 1 
1780 PRINT#2,R$ 

1790 DCLOSE#2 

1800 N$(I)=NA$+STR$(D) 

1810 PRINT 
1820 PRINT 

1830 PRINT'NAECHSTE EINGABE - RETURN-TASTE DRUECKEN” 
1840 PRINT 

1850 PRINT"ZURUECK INS MENUE - LEERTASTE DRUECKEN" 
1860 GETKEY M$ 

1870 IF M$=CHR$(13) AND DN$<>"" THEN 1130 

1880 IF M$=" ” THEN 1900 

1890 GOTO 1860 

1900 RETURN 

1910 : 

1920 : 

1930 : 

1940 REM ADRESSEN SORTIEREN 
1950 PRINT"<CLR>" 

1960 PRINT 
1970 PRINT 

1980 PRINT" ADRESSEN SORTIEREN 

1990 PRINT 
2000 PRINT 
2010 G=INT(K/2) 

2020 DO WHILE G>0 

2030 FOR I=G+1 TO K 

2040 J=I-G 

2050 DO WHILE J>0 

2060 IF N$(J)>N$(J+G) THEN BEGIN 

2070 A$=N$(J+G) 

2080 N$(J+G)=N$(J) 

2090 N$(J)=A$ 

2100 J=J-G 

2110 BEND:ELSE J=0 
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2120 LOOP 
2130 NEXT 
2140 G=INT(G/2) 

2150 LOOP 
2160 PRINT 
2170 PRINT 

2180 PRINT" ZURUECK INS MENUE" 

2190 PRINT" BELIEBIGE TASTE DRUECKEN" 
2200 GETKEY M$ 

2210 RETURN 
2220 : 

2230 : 

2240 : 

2250 REM RELATIVE DATEI OEFFNEN 
2260 GOSUB4150 
2270 PRINT"<CLR>" 

2280 PRINT 
2290 PRINT 

2300 PRINT” RELATIVE DATEI OEFFNEN 
2310 PRINT 
2320 PRINT 

2330 INPUT"DATEINAME";DN$ 

2340 PRINT 
2350 1=0 

2360 OPEN3,8,2,DN$+"-I,S,R" 

2370 IF DSoO THEN PRINT DS$:GOTO2460 

2380 FL=0 

2390 INPUT#3,K 

2400 PRINT K 

2410 IF K>0 THEN FL=1 

2420 IF I=MA THEN PRINT"DATEI VOLL":GOTO2460 
2430 1=1+1 

2440 INPUT#3,N$(I) 

2450 IF ST=0 THEN 2420 
2460 DCLOSE#3 
2470 PRINT 
2480 PRINT 

2490 PRINT" ZURUECK INS MENUE" 

2500 PRINT" BELIEBIGE TASTE DRUECKEN" 
2510 GETKEY M$ 

2520 RETURN 
2530 : 
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2540 : 

2550 : 

2560 REM RELATIVE DATEI ANLEGEN 
2570 GOSUB 4150 
2580 OPEN 1,8,15,"I":CLOSE 1 
2590 PRINT"<CLR>" 

2600 PRINT 
2610 PRINT 

2620 PRINT" RELATIVE DATEI ANLEGEN 
2630 PRINT 
2640 PRINT 

2650 INPUT"DATEINAME";DN$ 

2660 PRINT 

2670 OPEN5,8,3,DN$:CLOSE5 

2680 IF DS=0 THEN PRINT'BESTEHENDE ";:ELSE2750 
2690 PRINT"DATEI UEBERSCHREIBEN ? (J/N)" 

2700 PRINT 
2710 GETKEY M$ 

2720 IF M$="J" THEN OPEN 2,8,2,"@:"+DN$+",L,"+CHR$(L) : GOTO 2780 
2730 IF M$="N" THEN 2930 
2740 GOTO 2710 

2750 OPEN2,8,2,DN$+",L,"+CHR$(L) 

2780 RECORD#2,MA, 1 

2790 IF DS=50 OR DS=0 THEN 2800:ELSE PRINT DS$:GOTO2880 
2800 PRINT#2,CHR$(255) 

2810 OPEN 3,8,3,DN$+"-I,S,W" 

2820 PRINT#3,0 

2830 FOR 1=1 TO MA 

2840 PRINT I;"<lxCRSR UP>" 

2850 N$(I)=LEFT$(G$,LN)+STR$(I) 

2860 PRINT#3,N$(I) 

2870 NEXT I 
2880 DCLOSE#3 
2900 DCLOSE#2 
2910 FL=1 
2920 K=0 
2930 PRINT 
2940 PRINT 

2950 PRINT" ZURUECK INS MENUE" 

2960 PRINT" BELIEBIGE TASTE DRUECKEN" 

2970 GETKEY M$ 

2980 RETURN 
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2990 : 

3000 : 

3010 : 

3020 REM ADRESSENDATEI AUSDRUCKEN 
3030 GOSUB 3970 
3040 PRINT"<CLR>" 

3050 PRINT 
3060 PRINT 

3070 PRINT" ADRESSEN AUSDRUCKEN 

3080 PRINT 

3090 PRINT 

3100 OPEN2,8,2,DN$ 

3110 OPEN4,4 

3120 FORI=lTOK 

3130 D=VAL(MID$(N$(I),LN+1,10)) 

3150 RECORD#2,D,l 
3160 INPUT#2,R$ 

3170 PRINT#4,LEFT$(R$,LN); 

3180 PRINT#4," 

3190 PRINT#4,MID$(R$,LN+1 ,LV); 

3200 PRINT#4," 

3210 PRINT#4,MID$(R$,LN+LV+1 ,LS); 

3220 PRINT#4," 

3230 PRINT#4,MID$(R$,LN+LV+LS+1 ,LO); 

3240 PRINT#4," 

3250 PRINT#4,RIGHT$(R$, 1) 

3260 IF I-INT(I/64)*64=0 THEN BEGIN 

3270 FOR J=1 TO 8 

3280 PRINT#4 

3290 NEXT J 

3300 BEND 

3310 NEXT I 

3320 CLOSE4 

3330 DCLOSE#2 

3350 PRINT 

3360 PRINT 

3370 PRINT" ZURUECK INS MENUE" 

3380 PRINT" BELIEBIGE TASTE DRUECKEN” 
3390 GETKEY M$ 

3400 RETURN 
3410 : 

3420 : 
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3430 : 

3440 REM ADRESSEN AUF ETIKETTEN DRUCKEN 
3450 GOSUB 3970 
3460 PRINT"<CLR>" 

3470 PRINT 
3480 PRINT 

3490 PRINT" ADRESSEN AUF ETIKETTEN AUSDRUCKEN" 

3500 PRINT 

3510 PRINT 

3520 OPEN2,8,2,DN$ 

3530 OPEN4,4 

3540 FOR 1=1 TO K 

3550 D=VAL(MID$(N$(I),LN+1,10» 

3570 RECORD#2,D, 1 
3580 INPUT#2,R$ 

3590 PRlNT#4 
3600 PRINT#4 
3610 A=VAL(RIGHT$(R$, 1)) 

3620 PRINT#4,AR$(A) 

3630 PRINT#4,LEFT$(R$,LN+LV) 

3640 PRINT#4,MID$(R$,LN+LV+1 ,LS) 

3650 PRINT#4 

3660 PRINT#4,MID$(R$,LN+LV+LS+1 ,LO) 

3670 PRINT#4 
3680 PRINT#4 
3690 NEXT I 
3700 CLOSE4 
3710 DCLOSE#2 
3730 PRINT 
3740 PRINT 

3750 PRINT" ZURUECK INS MENUE" 

3760 PRINT" BELIEBIGE TASTE DRUECKEN" 

3770 GETKEY M$ 

3780 RETURN 
3790 : 

3800 : 

3810 : 

3820 REM DATENSATZ LOESCHEN 
3830 Z$=LEFT$(G$,LN)+MID$(N$(I),LN+1,10) 

3840 FOR J=I+1 TO K 
3850 N$(J-1)=N$(J) 

3860 NEXT J 
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3870 N$(K)=Z$ 

3880 K=K-1 

3890 PRINT"<8xCRSR DOWN>" 

3900 PRINT"GELOESCHT" 

3910 PRINT"<2xCRSR UP>" 

3920 IF K=0 THEN FL=0 
3930 RETURN 
3940 : 

3950 : 

3960 : 

3970 REM ABFRAGE OB DRUCKER EINGESCHALTET 
3980 TRAP 4030 
3990 OPEN4,4,0," " 

4000 CLOSE4 
4010 RETURN 
4020 : 

4030 IF ER<>5 THEN RESUME4010 

4040 CLOSE4 

4050 PRINT"<CLR>" 

4060 PRINT 
4070 PRINT 

4080 PRINT " BITTE DRUCKER EINSCHALTEN" 
4090 PRINT " UND BELIEBIGE TASTE DRUECKEN" 
4100 GETKEY M$ 

4110 RESUME 
4120 : 

4130 : 

4140 : 

4150 REM ABFRAGE OB FLOPPY EINGESCHALTET 
4160 TRAP 4210 
4170 OPEN4,8,15,"I" 

4180 CLOSE4 
4190 RETURN 
4200 : 

4210 CLOSE4 

4220 IF ER<>5 THEN RESUME 4190 
4230 PRINT"<CLR>" 

4240 PRINT 
4250 PRINT 

4260 PRINT " BITTE FLOPPY EINSCHALTEN" 

4270 PRINT " UND BELIEBIGE TASTE DRUECKEN" 
4280 GETKEY M$ 
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4290 RESUME 
4300 : 

4310 : 

4320 : 

4330 REM PROGRAMM BEENDEN 

4340 IF FL=0 THEN 4410 

4350 OPEN3,8,3,"@:"+DN$+"-I,S,W" 

4360 PRINT#3,K 

4370 FOR 1=1 TO MA 

4380 PRINT#3,N$(I) 

4390 NEXT 
4400 DCLOSE#3 
4410 END 


Im weiteren Verlauf noch einige Anmerkungen zum Programmlisting, wo¬ 
bei wir uns nur auf diejenigen Punkte konzentrieren wollen, die sich von 
der sequentiellen Adressenverwaltung unterscheiden. 

Zunächst gibt Zeile 130 in der Variablen L die Länge eines Datensatzes 
wieder, wobei bereits ein zusätzliches Zeichen für Carriage Return enthal¬ 
ten ist. Die maximale Anzahl der Datensätze wurde hier ebenfalls mit 200 
angesetzt (Variable MA) und kann bei Bedarf bis auf 720 erhöht werden, 
was der maximalen Anzahl der Datensätze in einer relativen Datei ent¬ 
spricht. 

Kommen wir nun zum Unterprogramm, das eine relative Datei anlegt (Zeile 
2560). Zeile 2670 fragt ab, ob bereits eine Datei unter dem gleichen Namen 
DN$ angelegt ist. Dies geschieht durch kurz aufeinanderfolgendes Öffnen 
und Schließen der Datei und anschließender Fehlerabfrage. Ist die Nummer 
der Fehlermeldung in DS gleich Null, existiert eine solche Datei und der 
Bediener wird gefragt, ob diese Datei überschrieben werden soll. Anderen¬ 
falls entsteht eine Fehlermeldung mit der Nummer 62 (FILE NOT 
FOUND), worauf die Datei mit MA Records und der Recordlänge L ange¬ 
legt wird (Zeile 2750 ff). Anschließend folgt ab Zeile 2810 die Anlage der 
sequentiellen Indexdatei, ebenfalls mit MA Elementen. Diese Indexdatei 
wird außerdem im Feld N$(I) angelegt, in das sie auch später zur Bearbei¬ 
tung der Datei eingelesen wird und während der gesamten Bearbeitungs¬ 
dauer dort verbleibt. 
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Auch bei der relativen Dateiverwaltung hätten wir anstelle der OPEN-An- 
weisung DOPEN verwenden können. Da dies jedoch in einigen Fällen pro¬ 
blematisch werden kann, insbesondere wenn sich der Dateiname nicht aus 
einer Konstanten, sondern aus mehreren Elementen bzw. Variablen zusam¬ 
mensetzt, wollen wir es hier bei OPEN belassen. Falls Sie dennoch DOPEN 
verwenden möchten, müssen Sie sämtliche Variablen in Klammern setzen. 

Somit kann eine relative Datei auf zweierlei Weise angelegt werden. Im fol¬ 
genden Beispiel steht die Variable X$ für den Dateinamen und die Variable 
I für die Recordlänge: 

OPEN 2,8,2,X$+",L,"+CHR$(I) 

DOPEN#2, (X$) ,L(I) 


Da die Indexdatei noch leer ist, wird als erster Wert die Zahl Null in sie 
geschrieben, gefolgt von MA Elementen, die aus 15 Sternchen und der 
fortlaufenden Recordnummer bestehen. Hier die ersten Elemente der In¬ 
dexdatei: 

0 

*************** | 

*************** 2 

*************** ß 

usw. 

Die Sternchen bezeichnen einen leeren oder als gelöscht gekennzeichneten 
Record. Wird der Record später belegt, erscheint oben statt der Null die 
Anzahl der belegten Records, die ansonsten in der Variable K abgelegt ist 
und statt der Sternchen erscheint der betreffende Name als Suchindex. Da 
Namen nur in Strings gespeichert werden können, wandeln wir auch die 
entsprechenden Recordnummern mit der STR$-Anweisung in Strings um, 
damit wir Name und Recordnummer in einen String packen können. Wird 
die Recordnummer später benötigt, wird sie aus dem String herausgelöst 
und mit der VAL-Anweisung wieder in einen numerischen Wert umgewan¬ 
delt. 

Kommen wir nun zum "Öffnen" einer relativen Datei ab Zeile 2250. Hier 
wird lediglich die Indexdatei eingelesen, wobei davon ausgegangen wird, 
daß, wenn sich eine Indexdatei auf der Diskette befindet, auch die zugehö- 
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rige relative Datei vorhanden sein muß. Wird die Indexdatei nicht gefun¬ 
den, erscheint die DOS-Fehlermeldung FILE NOT FOUND ERROR. 

Der erste aus der Indexdatei eingelesene Wert gibt die Anzahl der bereits 
belegten Records wieder und wird sogleich der Variablen K zugeordnet. 
Die restlichen Elemente werden im Feld N$(I) abgelegt. 

Im Unterprogramm "ADRESSEN SCHREIBEN/FORTSCHREIBEN" ab Zei¬ 
le 610 wird dann mit dem K+lten Datensatz fortgefahren. Ist K gleich 
Null, also die Datei leer, wird zur Eingabe des ersten Datensatzes aufgefor- 
dert. Nach beendeter Eingabe wird in Zeile 960 der Datensatz in den be¬ 
treffenden Record geschrieben und anschließend in Zeile 990 die Index¬ 
datei aktualisiert, indem der Name in sie eingetragen wird. 

Im Menüpunkt "AENDERN/LOESCHEN" wird der gesuchte Name zu¬ 
nächst in der Indexdatei gesucht und dann der zugehörige Datensatz aus 
dem ebenfalls in der Indexdatei enthaltenen Record gelesen. Nach Durch¬ 
führung der Änderung wird er dann wieder in dem gleichen Record ab¬ 
gelegt. 

Zum Löschen wird das Unterprogramm ab Zeile 3820 aufgerufen. Dabei 
wird der Name in der Indexdatei mit Sternchen überschrieben, wobei aller¬ 
dings die Recordnummer erhalten bleibt. Ist der zu löschende Datensatz an 
der Stelle I in der Indexdatei eingetragen, werden alle Elemente von 1+1 bis 
K um eine Stelle nach unten aufgerückt und das Element des gelöschten 
Datensatzes an der Stelle K eingefügt. Da sich durch das Löschen die An¬ 
zahl der Datensätze um eins reduziert, erniedrigt sich abschließend der Wert 
von K ebenfalls um eins. Der gelöschte Record steht nun wieder für einen 
neuen Eintrag zur Verfügung. 

Zum Sortieren der Indexeinträge dient das Unterprogramm ab Zeile 1940, 
wobei wieder das Sortierverfahren nach Shell zur Anwendung kommt. 
Meistens verschiebt sich erst durch das Sortieren, aber auch durch das Lö¬ 
schen, die Reihenfolge der Recordnummern im Verhältnis zu derjenigen im 
Indexverzeichnis. 

Zu den Routinen, die die Adressen auf dem Drucker listen bzw. Etiketten 
ausdrucken, gibt es nur soviel zu sagen, daß dies in der Reihenfolge der 
Elemente in der Indexdatei geschieht, wobei der jeweilige Record eingele¬ 
sen und anschließend ausgedruckt wird. 
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Wird bei Abschluß der Bearbeitung im Menü die Taste E gedrückt, ver¬ 
zweigt das Programm nach Zeile 4330, wo die Indexdatei in ihrem aktuali¬ 
sierten Zustand wieder auf die Diskette geschrieben wird und daraufhin das 
Programm endet. 
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Im letzten Kapitel wollen wir uns noch mit den Graphik-, Färb- und 
Sound-Möglichkeiten auf dem 128 PC beschäftigen. Der 128 PC bietet, im 
Gegensatz zum Commodore 64, eine Vielzahl von BASIC-Anweisungen, die 
das Zeichnen von Farbgraphiken und die Erzeugung von Melodien auf ein¬ 
fache Weise ermöglichen. Somit wird die Graphik- und Soundprogrammie¬ 
rung auch für diejenigen zugänglich, die sich nicht mit der Registerbe¬ 
legung der Bausteine auskennen. Beim Commodore 64 waren hierfür detail¬ 
lierte Kenntnisse erforderlich, und man brauchte viel Geduld, um die un¬ 
zähligen POKE- und PEEK-Befehle richtig einzugeben. 

Um diesem Mißstand abzuhelfen, wurden von verschiedenen Firmen BA- 
SIC-Erweiterungen für den C-64 auf den Markt gebracht, die aber meist 
nicht mehr als ein Notbehelf waren. So brachte z.B. Commodore selbst den 
Super-Expander heraus, dessen zusätzliche BASIC-Anweisungen jetzt in das 
BASIC 7.0 des 128 PC übernommen wurden. 

Wir wissen bereits, daß der 128 PC zwei Videoausgänge besitzt, nämlich 
einen Composite- und einen RGBI-Ausgang. Über den Composite-Ausgang 
können wir, ähnlich wie beim C-64, 40 Textzeichen pro Zeile und die nor¬ 
male Hires- und Mehrfarbengraphik ausgeben, was einer Auflösung von 
200 x 320 Pixels (Bildpunkten) entspricht. Der RGBI-Ausgang dagegen ar¬ 
beitet wahlweise auch im 80-Zeichen-Modus mit einer Auflösung von 200 
x 640 Pixels. 

Aber die Sache hat leider einen kleinen Haken, denn die Graphikbefehle 
gelten nur für Graphiken mit der geringeren Auflösung, die über den 
Composite-Ausgang ausgegeben werden. Im 80-Zeichen-Modus dagegen 
lassen sich nur 80 Zeichen, nicht aber hochauflösende Graphik mit 200 x 
640 Pixels darstellen, jedenfalls nicht von BASIC aus. Es ist allerdings 
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möglich, beide Ausgänge gleichzeitig mit zwei Monitoren zu betreiben, 
wobei sich der RGBI-Monitor im 80-Zeichen-Textmodus und der Com- 
posite-Monitor im Graphik-Modus befindet. In dieser Konfiguration kön¬ 
nen Sie ein BASIC-Programm über den RGBI-Monitor eingeben, das Gra¬ 
phiken auf dem Composite-Monitor erscheinen läßt. Sie können also die 
Graphik auf dem Composite-Monitor betrachten, während das zugehörige 
BASIC-Programm auf dem RGBI-Monitor sichtbar bleibt. 

Eine weitere Einschränkung besteht darin, daß der Composite-Monitor 
nicht im FAST-Modus betrieben werden kann. Dieser ermöglicht nur eine 
Ausgabe über den RGBI-Ausgang, über den ja von BASIC aus keine hoch¬ 
auflösende Graphik ausgegeben werden kann. Im FAST-Modus wird der 
8502-Mikroprozessor mit einer Taktfrequenz von 2 MHz betrieben, wäh¬ 
rend es im Normal- oder SLOW-Modus nur 1 MHz ist. Deshalb laufen im 
FAST-Modus die Programme auch doppelt so schnell ab. FAST und SLOW 
sind gleichzeitig BASIC-Anweisungen, die auf den jeweiligen Modus um¬ 
schalten. 


7.1 Bildschirmfarben und Graphikmodi 

Der Bildschirm setzt sich grundsätzlich aus drei Bereichen zusammen: dem 
Vordergrund, dem Hintergrund und dem Rahmen. Sämtliche Bereiche kön¬ 
nen in 16 verschiedenen Farben erscheinen, von denen jede wiederum 8 
verschiedene Helligkeitsstufen annehmen kann. Man spricht daher von Vor¬ 
dergrund-, Hintergrund- und Rahmenfarbe. 

In den Rahmen können wir bekanntlich nichts hineinschreiben oder zeich¬ 
nen, wohl aber in den inneren Bildschirm. Hierin ist die Hintergrundfarbe 
die Grundfarbe und die Vordergrundfarbe die Farbe, in der die Textzei¬ 
chen oder Graphiken erscheinen. 

Die Steuerung dieser Farben übernimmt die COLOR-Anweisung, die fol¬ 
gendermaßen definiert ist: 


COLOR (Bereich), (Farbe) 
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Dabei gibt es folgende Bereiche: 


Nummer 

Bereich 

0 

Bildschirm-Hintergrund im 40-Zeichen- und Gra 
phikmodus 

1 

2 

3 

4 

5 

6 

Hires-Graphik-Vordergrund 

Multicolor-Modus 1 

Multicolor-Modus 2 

Rahmenfarbe 

Zeichenfarbe im 40/80-Zeichen-Textmodus 
Bildschirm-Hintergrund im 80-Zeichen-Modus 


Auf die Graphik-Bereiche 1 bis 3 kommen wir später noch zurück. Zu 
nächst betrachten wir einmal die 16 Farben, die wir auf dem 128 PC erzeu 


gen können: 


Nummer 

Farbe 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

Schwarz 

Weiß 

Rot 

Cyan 

Purpur 

Grün 

Blau 

Gelb 

Orange 

Braun 

Rosa 

Dunkelgrau 

Grau 

Hellgrün 

Hellblau 

Hellgrau 
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Nun wollen wir ein Beispiel für die COLOR-Anweisung betrachten, in dem 
wir im normalen 40-Zeichen-Textmodus die Rahmenfarbe auf rot, die 
Hintergrundfarbe auf blau und die Vordergrund- (Zeichen-) Farbe auf gelb 
setzen: 

10 COLOR 4, 3 
20 COLOR 0, 7 
30 COLOR 5, 8 

Zur Auswahl der Zeichenfarbe können wir auch die Zifferntasten 1 bis 8 
in der oberen Reihe verwenden. Werden diese Tasten zusammen mit der 
CTRL-Taste gedrückt, erscheinen die entsprechenden Zeichenfarben 1 bis 
8; im Zusammenhang mit der C=-Taste sind es die Farben 9 bis 16. 

GRAPHIC stellt eine weitere wichtige Anweisung dar, die wir zur Gra¬ 
phik-Programmierung benötigen. Mit GRAPHIC können nämlich sechs ver¬ 
schiedene Graphik-Modi ausgewählt werden. Die allgemeine Anwei¬ 
sungsform sieht so aus: 

GRAPHIC (Modus), (Bildschirm löschen ja/nein) 

Folgende Modi stehen zur Verfügung: 

Modus Beschreibung 

0 Text 40 Zeichen pro Zeile und Blockgraphik 

1 Hochauflösende Graphik 

2 Hochauflösende Graphik mit Textfenster 

3 Multicolor-Graphik 

4 Multicolor-Graphik mit Textfenster 

5 Text 80 Zeichen pro Zeile 

Der zweite Parameter gibt an, ob der Bildschirm gelöscht werden soll oder 
nicht: 


Parameter Bedeutung 


0 

1 


Bildschirm nicht löschen 
Bildschirm löschen 
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Wenn wir nun in hochauflösende Graphik umschalten und gleichzeitig den 
Bildschirm löschen wollen, geben wir ein: 

GRAPHIC 1,1 

Beachten Sie dabei, daß der Bildschirm jetzt im Graphikmodus hängt und 
er somit sämtliche Eingaben über die Tastatur nicht mehr wiedergeben 
kann. Deshalb ist diese Anweisung nur im Programmodus zu empfehlen, 
wenn nach dem Zeichnen der Graphik der Text-Bilschirm infolge von 

GRAPHIC 0 oder GRAPHIC 0,1 

wieder eingeschaltet wird. Auf den zweiten Parameter kann man auch ver¬ 
zichten, wenn der Bildschirm nicht gelöscht werden soll. Er wird dann 
automatisch mit Null angenommen. 


7.2 Text-/Blockgraphikmodus 

Der Text-/Blockgraphikmodus steht Ihnen bereits unmittelbar nach dem 
Einschalten des Computers zur Verfügung und muß nicht erst gesondert 
angewählt werden. Sie haben sicher schon festgestellt, daß auf den meisten 
Tasten auch zwei Graphikzeichen abgebildet sind. Mit diesen Zeichen kön¬ 
nen Sie sogenannte Blockgraphiken erstellen und diese beliebig mit Text 
mischen. Wenn Sie die betreffende Taste zusammen mit der C=-Taste 
drücken, erscheint das linke, im Zusammenhang mit der Shift-Taste das 
rechte abgebildete Zeichen auf dem Bildschirm. 

Dieser Graphikmodus heißt Blockgraphik, weil immer nur ein vorgegebener 
Block von 8x8 Pixels, aus denen sich jedes einzelne Graphikzeichen zusam¬ 
mensetzt, dargestellt werden kann. Diese Zeichen sind wie die übrigen Zif¬ 
fern und Buchstaben fest vorgegeben und können nicht verändert werden. 
Sie eignen sich aber nur zur groben Darstellung von Abbildungen. Häufig 
verwendet man die verschiedenen Strichzeichen zur übersichtlichen Dar¬ 
stellung von Menüs oder sonstigen Bildschirmausgaben. Wir hätten sie auch 
in unserem Adressenverwaltungsprogramm (siehe Kapitel 6) verwenden 
können, um die einzelnen Menüpunkte zu umranden oder auf sonstige 
Weise besser hervorzuheben. 

Im Text-/Blockgraphikmodus kann theoretisch jedes Zeichen eine andere 
Farbe erhalten, die wir entweder mit der COLOR-Anweisung oder mit den 
Farbtasten in der oberen Reihe vorgeben können. Wenn wir diese Tasten 
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allerdings im Programmodus verwenden, müssen wir sie genauso wie die 
Cursorsteuertasten oder die CLR-Taste programmieren. Dazu ist zunächst 
ein Anführungszeichen, dann die betreffende Taste zusammen mit der C=- 
bzw. CONTRL-Taste und schließlich wieder ein Anführungszeichen einzu¬ 
geben. Dabei entstehen reverse Zeichen auf dem Bildschirm, die als Steuer¬ 
zeichen für die entsprechende Farbe interpretiert werden. 


7.3 Hochauflösende Graphik 

Nun wollen wir uns mit der eigentlichen Graphik beschäftigen, zu der wir 
einen extra Graphikmodus in der GRAPHIC-Anweisung anwählen müssen. 
Die hochauflösende Graphik, auch Hires-Graphik genannt, ermöglicht es 
dem Programmierer, jeden einzelnen Bildpunkt (Pixel) gesondert anzu¬ 
steuern. Da der Graphik-Bildschirm eine Auflösung von 200x320 Pixels be¬ 
sitzt, können Sie demgemäß insgesamt 64000 Bildpunkte setzen bzw. lö¬ 
schen. Die Bildschirm-Koordinaten erstrecken sich in der horizontalen 
Richtung von 0 bis 319 und in der vertikalen Richtung von 0 bis 199. 

Eine Einschränkung müssen wir allerdings bei der hochauflösenden Graphik 
in Kauf nehmen. Wir können zwar 64000 Bildpunkte einzeln ansteuern, 
aber nur 64 Punkten zusammen einer Farbe zuordnen. Dies ist in der Größe 
des Farbspeichers begründet, der nur für die 1000 Bildschirmzeichen im 
Text- bzw. Blockgraphik-Modus ausgelegt ist. Wollten wir alle 64000 
Punkte auch noch einzeln einfärben, brauchten wir einen riesigen Speicher, 
der den größten Teil des RAM-Speichers beanspruchen würde. In seinem 
jetzigen Zustand benötigt der Computer bereist 8k an Speicher für 64000 
Pixels und nochmals lk an Farbspeicher. Erhielte jedes Pixel seinen Farb- 
speicher, so benötigten wir insgesamt 72k. 

Meistens verwendet man in der Hires-Graphik nur eine Hintergrund- und 
eine einheitliche Vordergrundfarbe, um eine einigermaßen brauchbare 
Farbtrennung zu gewährleisten. Für mehrfarbige Graphiken eignet sich der 
Multicolor-Modus, auf den wir noch zu sprechen kommen werden, weitaus 
besser. 

Um Figuren im Graphikmodus zeichnen zu können, ist es nicht unbedingt 
erforderlich, jeden Bildpunkt einzeln zu setzen bzw. zu löschen, denn hier¬ 
zu stellt uns BASIC 7.0 einige komfortable Anweisungen zur Verfügung. 
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Betrachten wir zunächst die DRAW-Anweisung, die Punkte oder Linien 
zeichnet bzw. löscht. Probieren Sie einmal folgendes Programm aus: 


10 GRAPHIC 1,1 
20 DRAW 1,160,100 
30 GETKEY A$ 

40 GRAPHIC 0 

Zeile 10 schaltet den Hires-Modus ein (1. Parameter) und sorgt dafür, daß 
der Graphikbildschirm gelöscht wird (2. Parameter). Zeile 20 setzt einen 
Punkt in die Bildschirmmitte (Koordinate 160/100). Da der erste Parameter 
eine 1 ist, wird er gesetzt, wäre er eine Null, würde der Punkt gelöscht 
werden. Wir könnten Zeile 20 auch so schreiben: 

20 DRAW, 160,100 

Hier ist der erste Parameter nicht angegeben, wohl aber das Komma, das 
hinter ihm stehen muß. In diesem Fall wird der Wert 1 angenommen, d.h. 
der Punkt wird gesetzt. 

Wenn wir in diesem Zusammenhang von Löschen sprechen, bedeutet das 
lediglich, daß die Graphik mit der Hintergrundfarbe gezeichnet und damit 
unsichtbar wird. Somit können wir auch sagen, daß der Parameter 1 die 
Vordergrundfarbe und der Parameter 0 die Hintergrundfarbe zum Zeichnen 
aktiviert. 

Zeile 30 wartet dann schließlich auf einen Tastendruck, bevor Zeile 40 mit 
GRAPHIC 0 in den Textmodus zurückkehrt. Hätten wir die GETKEY-An- 
weisung ausgelassen, würde das Programm sofort nach Ausführung der 
Graphik-Anweisungen in den Textmodus zurückspringen und wir hätten 
kaum Zeit, das Ergebnis zu betrachten. Deshalb wollen wir auch in allen 
folgenden Beispielen die GETKEY-Anweisung beibehalten. 

Mit diesem Beispiel sind die Möglichkeiten von DRAW aber noch nicht er¬ 
schöpft. Nachfolgend ein Programm, das zwischen den Koordinatenpunkten 
10/10 und 90/90 eine Linie zeichnet: 

10 GRAPHIC 1,1 
20 DRAW, 10,10 TO 90,90 
30 GETKEY A$ 

40 GRAPHIC 0 
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Nun erweitern wir das Programm, indem wir die Zeile 25 einfügen: 

10 GRAPHIC 1,1 
20 DRAW, 10,10 TO 90,90 
25 DRAW TO 80,110 
30 GETKEY A$ 

40 GRAPHIC 0 

Die neue Anweisung zeichnet von der Position, an der sich der Graphik¬ 
cursor gerade befindet, eine Linie zur neuen Position 80/110. 

Theoretisch könnten wir mit der DRAW-Anweisung alle Graphiken zeich¬ 
nen, selbst wenn es nur punktweise wäre. Bei Kreisen müßten wir dann 
beispielsweise erst genügend viele Punkte des Kreisbogens berechnen und 
diese dann miteinander verbinden. Diese Mühe wird uns von BASIC 7.0 je¬ 
doch weitestgehend abgenommen. 

Neben DRAW gibt es nämlich noch die beiden Anweisungen BOX und 
CIRCLE, die Rechtecke bzw. Kreise zeichnen. Betrachten wir zunächst 
einmal BOX: 

10 GRAPHIC 1,1 
20 BOX,50,50,100,100 
30 GETKEY A$ 

40 GRAPHIC 0 

Dieses Programm zeichnet uns ein Rechteck, genaugenommen ein Quadrat, 
bei dem zwei diagonal gegenüberliegende Eckpunkte vorgegeben sein müs¬ 
sen. In unserem Fall haben sie die Koordinaten 50/50 und 100/100. Der 
erste Parameter, für den wir nur das Komma setzen, ist auch hier gleichbe¬ 
deutend mit dem in der DRAW-Anweisung. 

Wir können die Rechteckfigur auch drehen, indem wir einen weiteren Pa¬ 
rameter als Drehwinkel in Grad angeben: 

10 GRAPHIC 1,1 
20 BOX,50,50,100,100,45 
30 GETKEY AS 
40 GRAPHIC 0 
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Mit diesem Programm entsteht das gleiche Quadrat wie im vorigen Beispiel; 
es ist nur um einen Winkel von 45 Grad verdreht. Wollen wir es zusätzlich 
ausfüllen, müssen wir noch einen weiteren Parameter hinter die Winkelan¬ 
gabe setzen. Im folgenden Beispiel wollen wir dies einmal ausprobieren: 

10 GRAPHIC 1,1 
20 BOX,50,50,100,100,45,1 
30 GETKEY A$ 

40 GRAPHIC 0 

Die 1 als letzter Parameter gibt die Anweisung, das Quadrat auszufüllen. 
Wünschen wir keine Drehung, lassen wir die Winkelangabe fort und setzen 
nur das abschließende Komma. Dies gilt übrigens für alle Parameter in 
Graphik-Anweisungen, wenn sie nicht benutzt werden. 

Bevor wir die BOX-Anweisung verlassen, abschließend noch ein Programm, 
das durch wiederholtes Drehen eines Quadrates das Muster einer Rosette 
erzeugt: 

10 REM ROSETTE 
20 GRAPHIC 1,1 
30 FOR 1=0 TO 8 
40 BOX,90,30,230,170,1* 10 
50 NEXT 
60 GETKEY A$ 

70 GRAPHIC 0,0 

Wir sehen an diesem Beispiel, daß die Parameter auch in Form arithmeti¬ 
scher Ausdrücke angegeben werden können. 

Als nächstes kommen wir nun zur CIRCLE-Anweisung, die in erster Linie 
Kreise und Ellipsen zeichnet. Neben den Mittelpunktkoordinaten muß dabei 
zumindest noch der Radius angegeben werden. Mit dem folgenden Pro¬ 
gramm können Sie vier Kreise ineinander zeichnen: 
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10 REM KREISE 
20 GRAPHIC 1,0 
30 CIRCLE, 160,100,100 
40 CIRCLE, 160,100,80 
50 CIRCLE, 160,100,60 
60 CIRCLE, 160,100,40 
70 CHAR,17,12,"HURRA!" 

80 GETKEY A$ 

90 GRAPHIC 0 

Sämtliche Kreise haben ihren Mittelpunkt in der Bildschirmmitte (160/100). 
Der äußerste Kreis hat einen Radius von 100, der sich beim zweiten Kreis 
auf 80, beim dritten auf 60 und beim vierten auf 40 reduziert. Die CHAR- 
Anweisung in Zeile 70 dient zur Beschriftung von Graphiken und setzt das 
Wort "HURRA!" in die Kreismitte. Die angegebenen Parameter 17/12 geben 
die Anfangsposition der Textausgabe an, allerdings nicht in Pixels, sondern 
als normale Zeichenposition wie im Textmodus. 

Im folgenden Beispiel wollen wir eine Ellipse zeichnen. Dafür geben wir 
noch einen zweiten Radius als Parameter an: 

10 GRAPHIC 1,1 
20 CIRCLE,160,100,100,50 
30 GETKEY A$ 

40 GRAPHIC 0 

Neben den beiden ersten Parametern, die den Mittelpunkt bestimmen, er¬ 
scheint zunächst der Radius in horizontaler und anschließend der Radius in 
vertikaler Richtung. Die CIRCLE-Anweisung bietet aber noch weitaus 
mehr Möglichkeiten. Zur besseren Veranschaulichung und zum klareren 
Verständnis finden Sie nachfolgend sämtliche Parameter aufgeführt: 

CIRCLE Vorder-/Hintergrundfarbe, 

Mittelpunktkoordinate X-Achse, 

Mittelpunktkoordinate Y-Achse, 

Radius X-Achse, 

Radius Y-Achse, 

Winkel in Grad am Kreisbogenanfang (Standard = 0), 
Winkel in Grad am Kreisbogenende (Standard = 360), 
Drehung im Uhrzeigersinn zusätzlich (Standard = 0), 
Winkel zwischen zwei Segmenten (Standard 2 Grad) 
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Unter Ausnutzung dieser Parameter können wir auch Vielecke zeichnen. So 
erzeugt die Anweisung 

CIRCLE, 160,100,50,,,,, 120 

ein Dreieck und 

CIRCLE, 160,100,70,, ,„45 

ein Achteck. Hier noch ein Programm, das eine gelbe Spirale auf dunkel¬ 
blauem Grund zeichnet: 

10 REM SPIRALE 
20 GRAPHIC 1,1 
25 COLOR 0,15 : COLOR 1,8 

30 A = 180 : REM RADIUSAENDERUNGEN PRO UMDREHUNG 
40 B = 6 : REM ANZAHL UMDREHUNGEN 

50 R = 100 : REM GROESSTER RADIUS 
60 C = A*B 
70 FOR 1=1 TO C 

80 CIRCLE, 160,100,(1-1 )/C*R„0,B*360/C,B*(I-1 )/C*360 

90 NEXT 

100 GETKEY A$ 

110 GRAPHIC 0 

Das Programm läßt die Spirale vom Mittelpunkt aus entstehen, wobei es 
180 Mal pro Umdrehung den Radius neu berechnet und daraufhin mit der 
CIRCLE-Anweisung ein Kreissegment von 2 Grad zeichnet. 

Jetzt wollen wir eine Möglichkeit betrachten, Figuren nicht nur zu zeich¬ 
nen, sondern auch farblich auszufüllen. Die BOX-Anweisung läßt dies be¬ 
reits für Rechtecke zu, aber auch beliebige andere Flächen können mit 
Hilfe der PAINT-Anweisung ausgefüllt werden. Als Beispiel dafür soll uns 
ein Kreis dienen: 

10 GRAPHIC 1,1 
20 CIRCLE, 160,100,50 
30 PAINT, 160,100 
40 GETKEY A$ 

50 GRAPHIC 0 
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Dieses Programm zeichnet einen Kreis, der anschließend mit Hilfe der 
PAINT-Anweisung farblich ausgefüllt wird. PAINT benötigt neben dem 
Komma als Ersatz für den Ein-/Aus-Parameter noch eine X- und eine Y- 
Koordinate für die Stelle, an der mit dem Ausfüllen begonnen werden soll. 
In unserem Fall ist es die Kreismitte. Wichtig ist lediglich, daß die auszu¬ 
füllende Fläche vollständig geschlossen ist und die Koordinaten der 
PAINT-Anweisung innerhalb dieser Fläche liegen. Wir hätten somit auch 
jeden anderen Punkt innerhalb des Kreises auswählen können. 


7.4 Multicolor-Modus 

Hires-Graphiken ermöglichen zwar eine Auflösung von 320x200 Pixels, 
haben aber meist eine mäßige Farbauflösung zur Folge, besonders wenn es 
darum geht, mehr als zwei Farben einzusetzen. Die Farben lassen sich an 
den Stoßstellen nicht sauber trennen und verwaschen ineinander. Darüber 
hinaus können immer nur 64 Pixels in einem 8x8 Pixel großen Kästchen 
eine gemeinsame Farbe annehmen. Aus diesen Gründen arbeiten die mei¬ 
sten Hires-Programme ohnehin nur mit der Hintergrundfarbe und einer 
einzigen Yordergrundfarbe. 

Im Multicolor-Modus erstellte Graphiken lassen dagegen in einem 8x8 Pixel 
großen Kästchen insgesamt vier Farben zu: die Hintergrund- und die Vor¬ 
dergrundfarbe sowie zwei weitere Farben. Dieser Vorteil muß allerdings 
mit einem Nachteil erkauft werden, denn die Auflösung der Graphik 
nimmt auf 200x160 Pixels ab. Dabei stehen in der X-Richtung mit 160 
Pixels nur halb so viele Bildpunkte zur Verfügung wie im Hires-Modus. 
Dies hat andererseits den Vorteil, daß die Farbtrennung bei weniger Punk¬ 
ten besser funktioniert als bei vielen. 

Vom Multicolor-Modus gibt es zwei Variationen, nämlich den Multicolor- 
Modus 1 und 2. Angewählt werden diese beiden Arten durch die COLOR- 
Anweisung, wobei der Multicolor-Modus 1 mit COLOR 2 und der Multi¬ 
color-Modus 2 mit COLOR 3 angewählt wird. 

Der Multicolor-Modus 1 arbeitet in der bereits besprochenen Weise, wäh¬ 
rend der Modus 2 noch eine zusätzliche Eigenschaft besitzt, die es in 
keinem anderen Bereich bzw. Graphikmodus gibt. Sämtliche mit COLOR 3 
erstellten Graphikpassagen ändern nämlich schlagartig ihre Farbe, sobald 
eine neue COLOR 3-Anweisung gegeben wird. Dadurch entsteht in gewis¬ 
ser Weise ein Leuchtreklame-Effekt. So können Sie z.B. mit COLOR 3,8 
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mehrere gelbe Sterne auf den Bildschirm zeichnen, die dann bei COLOR 
3,3 plötzlich rot oder bei COLOR 3,7 plötzlich blau werden. 


7.5 Graphik und Text 

Wir kennen bereits die CHAR-Anweisung, mit der Graphiken beschriftet 
werden können. So schreibt z.B. die Anweisung 

CHAR,17,12,"HURRA!" 

das Wort "HURRA!" an die Stelle, die im Textmodus die Position 17,12 
einnehmen würde, obwohl wir uns gerade im Graphikmodus befinden. 
Achten Sie bei Anwendung der CHAR-Anweisung darauf, daß sich im 
Textmodus die horizontalen Koordinaten von 0 bis 39 und die vertikalen 
von 0 bis 25 erstrecken (40-Zeichen-Bildschirm), während wir für die 
Hires-Graphik 320x200 und für die Multicolor-Graphik 320x160 Bild¬ 
punkte zur Verfügung haben. 

Eine weitere Möglichkeit zur Unterbringung von Text bietet die Bild¬ 
schirmaufteilung in zwei Bereiche, wobei die oberen 20 (Text-) Zeilen für 
Graphik und die unteren 5 Zeilen für Text reserviert sind. In das Text¬ 
fenster können mit PRINT beliebige Zeichen ausgegeben werden. Diese 
Bildschirmaufteilung gibt es für Hires- und für Multicolor-Graphiken; sie 
wird mit GRAPHIC 2 bzw. GRAPHIC 4 erzeugt. 


7.6 Sprites 

In den vorangehenden Abschnitten haben wir gelernt, Graphiken im Hires- 
oder Multicolor-Modus zu erstellen. Stellen Sie sich einmal vor, Sie ent¬ 
werfen einen Ballon mit einer Gondel, den Sie auf- oder absteigen lassen 
möchten. Sie müssen dafür nicht nur eine Graphik entwerfen, sondern diese 
darüber hinaus auch noch bewegen. 

Natürlich besteht die Möglichkeit, dies mit den Anweisungen zu tun, die 
wir bisher kennengelernt haben, denn wir können eine Figur zeichnen und 
wieder löschen (erster Parameter in den einzelnen Graphik-Anweisungen). 
Nun könnten wir sie um einige Pixels verschieben und wieder neu zeich¬ 
nen, wieder löschen und verschieben usw. Wiederholt sich dieser Vorgang 
schnell genug, entsteht der Eindruck, daß sich das Objekt bewegt. 
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Wenn wir ein derartiges Programm zu schreiben versuchen, werden wir 
bald feststellen, daß es sehr umfangreich und kompliziert wird. Außerdem 
wird es uns kaum möglich sein, die Objekte in schneller Folge aufzubauen 
und wieder zu löschen. Der BASIC-Interpreter braucht nämlich auch seine 
Zeit, die unzähligen Anweisungen auszuführen, die für einen solchen Vor¬ 
gang nötig sind. 

Zur schnellen Bewegung von Objekten auf dem Bildschirm bietet nur der 
Commodore 128 PC die Sprite-Graphik an. BASIC 7.0 enthält einige sehr 
nützliche Befehle zur Aufstellung und Bewegung von Sprites. Dabei sind 
Sprites für Commodore-Computer nichts neues. Der C-64 unterstützte be¬ 
reits die Sprite-Graphik, selbst wenn sie dort nur auf umständliche Weise 
durch zahlreiche POKE- und PEEK-Befehle oder Maschinenprogramme zu 
realisieren war. 

Ein Sprite ist eine rechteckige Fläche mit einer Breite von 24 und einer 
Höhe von 21 Pixels. Auf dem Commodore 128 können Sie bis zu acht 
Sprites erzeugen und gleichzeitig über den Bildschirm ziehen lassen. Sprites 
sind übrigens wichtige Programmierwerkzeuge und zwar aus folgenden 
Gründen: 

Jedes Sprite hat seine eigene Form und Farbe und bewegt sich auf seiner 
eigenen Bildschirmebene. Diese Ebenen existieren völlig unabhängig von¬ 
einander, wobei es auch keine Rolle spielt, von welcher Beschaffenheit die 
einzelnen Sprites sind. Wenn Sie nun ein Sprite über den Bildschirm be¬ 
wegen, hat dies keinerlei Einfluß auf die übrige Bildschirmgraphik oder die 
anderen Sprites. Durch diese komfortable Einrichtung brauchen Sie sich 
beim Programmieren keine Gedanken zu machen, ob ein Sprite durch ein 
anderes überlagert wird oder nicht. Müßten Sie sich hierüber den Kopf 
zerbrechen, wären Ihre Programme mit Sicherheit um einiges komplizierter. 

Als weiteres bewegen sich Sprites zu jedem vorgegebenen Punkt auf dem 
Bildschirm. Sie müssen nur die gewünschten Koordinaten eingeben, der 
Rest geschieht dann automatisch. Sie können auch einen Winkel und die 
Geschwindigkeit vorgeben, wonach sich das Sprite bewegen soll. Selbst 
wenn es an den Bildschirmrand stößt, muß dies kein Hindernis sein, denn 
es kann am anderen Ende des Bildschirms wieder hervorkommen. Diese 
hervorragenden Eigenschaften lassen sich alle mit einem Minimum an Pro¬ 
grammieraufwand nutzen. Dies ist auch der Grund, weshalb es für den C- 
64 so viel gute Graphik-Software gibt. 
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Es besteht auch die Möglichkeit, mehrere Sprites zu einer großen Figur zu¬ 
sammenzusetzen. So ergeben vier Sprites ein großes Gebilde mit 96x84 
Pixels, was schon einen erheblichen Teil der Bildschirmfläche ausmacht. 
Auch können Sie jedem Sprite eine Priorität zuordnen, wodurch es sich 
entweder vor oder hinter anderen Bildschirmdaten bewegen kann. Dadurch 
werden dreidimensionale Effekte erzielt, die beispielsweise den Eindruck 
vermitteln, daß sich ein Ungeheuer hinter einem Berg versteckt, und von 
dort plötzlich hervortritt. Selbst die Kollision eines Sprites mit einem 
anderen Sprite oder mit der Hintergrundgraphik kann vorprogrammiert 
werden, so daß das Programm in eine vorgegebene Routine springt, wenn 
eine Kollision auftritt. 

Damit Sprites auf dem Bildschirm erscheinen, ist es nicht unbedingt erfor¬ 
derlich, den Hires- oder Multicolor-Modus zu aktivieren. Sie können auch 
auf dem normalen Textbildschirm sichtbar sein, während Sie ansonsten Pro¬ 
gramme eingeben oder ausführen. Die Sprites bleiben davon vollkommen 
unberührt. Selbst wenn Sie ein BASIC-Programm neu mit RUN starten oder 
mit NEW löschen, hat das keinerlei Einfluß auf einmal definierte Sprites. 
Sie stehen solange zur Verfügung, wie der Computer eingeschaltet bleibt. 

Um Sprites zu erstellen, gibt es zwei Möglichkeiten, die wir hier kurz be¬ 
trachten wollen: 

Sie zeichnen das Sprite-Muster mit normalen Graphik-Anweisungen wie 
DRAW, CIRCLE oder BOX auf den Bildschirm und legen es in einer 
Stringvariablen ab. Dies wird durch die SSHAPE-Anweisung möglich. So 
legt beispielsweise 

SSHAPE A$,80,80,103,100 

das definierte Spritemuster in der Variablen A$ ab, wobei 80,80 und 
103,100 die diagonal gegenüberliegenden Eckpunkte darstellen. Dabei ist 
auf die richtige Größe des Sprites von 21x24 Pixels zu achten. SSHAPE 
wird übrigens allgemein zum Abspeichern von Graphiken verwendet, die 
dann mit GSHAPE wieder gesetzt werden können. Somit würde unsere 
Graphik mit 

GSHAPE A$,20,20 

in die Bildschirmposition 20,20 gesetzt werden, wobei die angegebenen Ko¬ 
ordinaten den linken oberen Eckpunkt angeben. 
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Dies nur zur allgemeinen Information. Wir wollen jedoch unsere Graphik 
im Augenblick nicht mit GSHAPE wiedergeben, sondern sie einem der acht 
möglichen Sprites zuordnen. Hierzu wählen wir das erste Sprite aus: 

SPRSAV 1, A$ 

Jetzt ist das Sprite Nr. 1 definiert, so daß wir es über den Bildschirm 
ziehen lassen können. Doch bevor wir dies tun, sehen wir uns noch eine 
andere Möglichkeit an. 

BASIC 7.0 besitzt einen eingebauten komfortablen Sprite-Editor, mit dem 
es ein leichtes ist, Sprites zu erzeugen. Geben Sie zunächst einmal 

SPRDEF 

ein. In der linken oberen Bildschirmecke erscheint ein großes Kästchen, das 
ungefähr den halben Bildschirm beansprucht. Darunter steht der Text 
SPRITE NUMBER?, der Sie auffordert, eine Nummer zwischen 1 und 8 
einzugeben. Wir wählen hier wieder die Nummer 1. Sollte unter dieser 
Nummer bereits ein Sprite belegt sein, erscheint es in stark vergrößerter 
Form in dem Kästchen und in normaler Größe rechts oben im Bildschirm. 
Wir können es, falls wir es nicht mehr benötigen, mit der SHIFT/CLR- 
Taste löschen. 

Im linken oberen Eckpunkt erscheint ein Kreuz (Pluszeichen) als Cursor, 
der auch auf die normalen Cursorsteuertasten anspricht. Mit den Ziffern¬ 
tasten 2 bis 4 können wir jetzt einzelne Punkte setzen, während die Zif¬ 
ferntaste 1 Punkte löscht. Dabei geben wir das Spritemuster in achtfacher 
Vergrößerung ein, wobei ein Kästchen von 8x8 Pixels in Wirklichkeit nur 
einem Pixel entspricht. Rechts auf dem Bildschirm erscheint das gleiche 
Muster noch einmal in Originalgröße. 

Auf diese Weise ist die Erzeugung jedes beliebigen Musters leicht möglich. 
Nach Abschluß der Eingabe drücken wir SHIFT/RETURN und können 
dann entweder ein weiteres Sprite definieren oder nochmals die RETURN- 
Taste drücken, um den Vorgang abzuschließen. 

Jetzt ist das Sprite fertig definiert und verwendungsbereit. Es besteht je¬ 
doch auch die Möglichkeit, es in einer Stringvariablen abzulegen, wozu 
wiederum die SPRSAV-Anweisung dient, diesmal allerdings mit vertausch¬ 
ten Parametern. Die Anweisung 
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SPRSAV C$,1 

ordnet das binäre Pixelmuster von Sprite 1 der Stringvariablen C$ zu. 

Nun wollen wir unser Sprite hervorholen; dabei spielt es keine Rolle, in 
welchem Graphikmodus wir uns gerade befinden. Die Anweisung 

SPRITE 1,1 

läßt das Sprite rechts oben auf dem Bildschirm erscheinen und zwar an der 
Stelle, wo es während der Definition in seiner Originalgröße vorhanden 
war. Soll das Sprite wieder verschwinden, geben wir 

SPRITE 1,0 

ein. Da die SPRITE-Anweisung noch mehrere Optionen bietet, wollen wir 
sie zunächst in ihrer allgemeinen Form betrachten: 

SPRITE Nummer, Ein/Aus, Farbe, Priorität, 

X-Ausdehnung, Y-Ausdehnung, Modus 

Die Nummer entspricht der Spritenummer zwischen 1 und 8; für Ein/Aus 
steht eine 1, wenn das Sprite sichtbar, und eine Null, wenn es unsichtbar 
sein soll. Für die Farbe ist einer der 16 Farbcodes zu setzen. Die Priorität 
ist gleich 0, wenn sich das Sprite vor den anderen Bildschirmdaten bewegt 
und 1, wenn es von ihnen verdeckt wird. Mit den nächsten Parametern 
können wir das Sprite sowohl in X-, als auch in Y-Richtung in seiner 
Größe verdoppeln. In diesem Fall sind entweder einer oder beide Parameter 
auf 1 zu setzen, während sie für die Normalgröße auf Null bleiben. Der 
letzte Parameter gibt den Modus wieder, wobei 1 dem Hires- und Null dem 
Multicolor-Modus entspricht. 

Wenn wir eingeben 

SPRITE 5, 1, 14, 1, 1, 1 

wird demgemäß das 5. Sprite sichtbar; es erhält die dunkelblaue Farbe, be¬ 
wegt sich hinter den anderen Bildschirminformationen und wird zusätzlich 
sowohl in X- als auch in Y-Richtung auf die doppelte Ausdehnung ver¬ 
größert. 
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Mit den MOVSPR-Anweisung können wir das Sprite beliebig auf dem 
Bildschirm hin- und herbewegen. 

MOVSPR 1, 40, 30 

setzt das Sprite 1 an die Stelle 40/30. Werden die Koordinaten mit einem 
Vorzeichen versehen, wie z.B. in +50, -30, bewegt sich das Sprite von 
seinem gegenwärtigen Standpunkt um 50 Pixels nach rechts und um 30 
Pixels nach oben. Bei 

MOVSPR 1,45#4 

gerät das Sprite 1 ständig in Bewegung. Es bewegt sich in einem Winkel 
von 45 Grad im Uhrzeigersinn mit der Geschwindigkeitsstufe 4. Läuft es 
über den Bildschirmrand hinaus, erscheint es wieder auf der entgegenge¬ 
setzten Seite und läuft weiter. Insgesamt gibt es 16 Geschwindigkeitsstufen 
(0-15), wobei 0 der langsamsten und 15 der schnellsten Stufe entspricht. 

Wird ein solches Sprite mit einer SPRITE-Anweisung gestoppt, werden 
seine gegenwärtigen Koordinaten und Bewegungsdaten registriert, so daß es 
von derselben Stelle aus neu gestartet und in der gleichen Weise weiter¬ 
laufen kann. 

Abschließend wollen wir noch einen kurzen Blick auf die Behandlung von 
Spritekollisionen werfen. Tritt ein solches Ereignis (Event) auf, verzweigt 
das Programm in ein Unterprogramm (Trapping) zur weiteren Behandlung 
dieses aufgetretenen Ereignisses. Deshalb spricht man in diesem Zusammen¬ 
hang auch von Event Trapping. 

Zum Abfragen und Abfangen von solchen Zusammenstöße dient die COL- 
LISION-Anweisung. Ihr folgt die Nummer des Ereignisses und dann die 
Nummer der Zeile, in die im Falle dieses Ereignisses verzweigt werden soll. 
Dabei bedeutet 

0 Kollision zweier Sprites 

1 Kollision zwischen Sprite und Bildschirmdaten 

2 Kollision infolge Lightpen (Lichtgriffel) 

Somit verzweigt die Anweisung 


COLLISION 0, 1000 
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in Zeile 1000, falls zwei Sprites zusammengestoßen sind. Sämtliche ange¬ 
steuerten Routinen müssen mit einer RETURN-Anweisung abschließen, da 
sie wie normale Unterprogramme behandelt werden. Nach Ausführung von 
RETURN fährt das Programm mit der nächsten Anweisung fort. 

Die COLLISION-Anweisung ist in etwa mit der TRAP-Anweisung zu ver¬ 
gleichen, die im Falle eines auftretenden Fehlers eine besondere Routine 
anspringt. Dabei spielt es keine Rolle, welche BASIC-Anweisung während 
des Fehlers bzw. der Kollision gerade ausgeführt wird, denn das Programm 
springt sofort in die betreffende Routine und setzt nach deren Abarbeitung 
seine Ausführung an der auslösenden Stelle fort. Diese Art der Programm¬ 
unterbrechung wird übrigens oft bei der Maschinenprogrammierung ange¬ 
wandt. Hier nennt man solche Programmunterbrechungen Interrupts. 

Die COLLISION-Anweisung wird außer Kraft gesetzt, wenn sie ohne Zei¬ 
lennummer geschrieben wird, z.B.: 

COLLISION 1 

Da die COLLISION-Anweisung lediglich angibt, daß eine Kollision zwi¬ 
schen zwei Sprites oder einem Sprite und den Bildschirmdaten stattgefun¬ 
den hat, gibt es darüber hinaus noch die BUMP-Funktion, die nähere An¬ 
gaben zur Art des Zusammenstoßes liefert. Sie muß in der Routine stehen, 
die infolge von COLLISION aufgerufen wird. 

A = BUMP (0) 

gibt die Sprites an, die miteinander kollidiert sind. Dabei hat der Wert in 
Klammern die gleiche Funktion wie bei der COLLISION-Anweisung. 

B = BUMP (1) 

ermittelt somit die Sprites, die mit den Bildschirmdaten, d.h. mit normalen 
Graphiken oder Textzeichen, zusammengestoßen sind. 

Das durch BUMP erzeugte Ergebnis, das in unserem Beispiel den Variablen 
A bzw. B zugeordnet wird, ist als 8-Bit-Wert binär zu interpretieren und 
liegt im Bereich zwischen 0 und 255 dezimal bzw. 0000 0000 und 1111 
1111 binär. Dabei entspricht jedes Bit einem der acht möglichen Sprites. Ist 
z.B. das rechte Bit auf 1 gesetzt, so ist Sprite 1 von der Kollision betroffen, 
beim zweiten Bit von rechts ist es Sprite 2 usw. Dabei können auch zwei 
Bit gleichzeitig gesetzt sein, wie im Falle von BUMP (0), da ja hier der 
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Zusammenstoß zwischen zwei Sprites abgefragt wird. Dagegen ist es bei 
BUMP (1) immer nur ein Bit. Enthält z.B. die Variable A in unserem ersten 
Beispiel den Wert 18, so entspricht dieser der Binärzahl 0001 0010, was be¬ 
deutet, daß Sprite 2 mit Sprite 5 zusammengestoßen ist. 

Abschließend werfen wir noch einen Blick auf zwei weitere Funktionen, 
die Spriteparameter abfragen und wiedergeben. Die RSPPOS-Funktion er¬ 
mittelt Position und Geschwindigkeit eines Sprites. Ihre allgemeine Form 
lautet: 


RSPPOS (Spritenummer, Parameter-Wert) 

Für den Parameter können verschiedene Werte vorgegeben werden: 

Wert ermittelt Parameter 

0 derzeitige X-Position 

1 derzeitige Y-Position 

2 Geschwindigkeitsstufe (0-15) 

So ermittelt die Eingabe 
A = RSPPOS (3,2) 

die augenblickliche Geschwindigkeit von Sprite 3 und legt das Ergebnis in 
der Variablen A ab. 

Die Funktion 

RSPRITE (Spritenummer, Attribut-Nr.) 
liefert verschiedene Spriteattribute, die nachfolgend auf geführt sind: 


Attribut-Nr. liefert als Ergebnis 

0 1, wenn Sprite aktiviert, anderenfalls 0 

1 Spritefarbe 1-16 

2 1, wenn Sprite Priorität über Hintergrund hat, 

anderenfalls 0 

3 1, wenn Sprite in X-Richtung gedehnt, ande¬ 

renfalls 0 



7 Graphik und Sound 


217 


4 1, wenn Sprite in Y-Richtung gedehnt, ande¬ 
renfalls 0 

5 1, wenn Multicolor-Modus aktiviert, anderen¬ 
falls 0 


So ermittelt die Eingabe 
A = RSPRITE (2, 1) 

die Farbe von Sprite 2, dessen Nummer in A abgelegt wird. 


7.7 Musik und Sound 

Mit BASIC 7.0 können Sie nicht nur Graphik und Sprites, sondern auch 
Melodien und Geräusche auf einfache Weise programmieren. Zwar war dies 
bereits beim C-64 generell möglich, jedoch wie bei der Graphik-Program¬ 
mierung nur mit POKE- und PEEK-Befehlen zu erreichen. In diesem Ab¬ 
schnitt wollen wir nun die komfortablen BASIC-SoundanWeisungen näher 
betrachten. 

Bevor wir damit beginnen, achten Sie darauf, daß an Ihren Computer auch 
ein Lautsprecher angeschlossen ist. Falls Sie ein Fernsehgerät als Bildschirm 
benutzen, genügt es, dazu den Lautstärkeregler aufzudrehen, da der Ton 
auf diese Weise automatisch übertragen wird. Haben Sie dagegen einen 
Schwarzweiß- oder Farbmonitor angeschlossen, prüfen Sie zunächst, ob 
dieser auch mit einem Lautsprecher ausgestattet ist, was bei vielen Monito¬ 
ren nicht der Fall ist. 

Hat Ihr Monitor keinen eingebauten Lautsprecher, müssen Sie sich ander¬ 
weitig behelfen. Entweder benutzen Sie für die Soundprogrammierung ein 
Fernsehgerät oder Sie schließen zusätzlich einen Verstärker mit Lautspre¬ 
cher oder eine Stereoanlage an, die ohnehin eine viel bessere Klangwieder¬ 
gabe erzeugt. Sollten Sie gleichzeitig Monitor und Verstärker bzw. Stereoan¬ 
lage an den Audio-/Videoausgang anschließen, benötigen Sie ein Verteiler¬ 
stück, das Sie entweder kaufen oder selbst herstellen müssen. Besitzen Sie 
dagegen einen RGBI-Monitor, können Sie diesen an den RGBI-Ausgang 
und den Verstärker bzw. die Stereoanlage an den Composite- oder Audio- 
/Video-Ausgang anschließen. 
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Betrachten wir zunächst einmal die PLAY-Anweisung, mit der wir am ein¬ 
fachsten Melodien erzeugen können. Da der 128 PC bereits mit den Hüll¬ 
kurven 10 verschiedener Musikinstrumente vorprogrammiert ist, können wir 
sofort damit beginnen, eine Melodie zu programmieren und abzuspielen. 
Starten wir unseren ersten Versuch mit der Tonleiter in C-Dur: 


PLAY "CDEFGA B" 


Auf das hohe C mußten wir dabei vorläufig verzichten, da es bereits zur 
nächst höheren Oktave gehört. Sie sehen aber, daß prinzipiell nur die ein¬ 
zelnen Noten in der Form einzugeben sind, in der man sie auch ausspricht. 
Die einzige Ausnahme bildet die Note H, die im Amerikanischen - wie 
auch bei der Soundprogrammierung - mit B bezeichnet wird. 

Bevor wir fortfahren, werfen wir noch einen Blick auf die einzelnen zu¬ 
sätzlichen Parameter für die PLAY-Anweisung. 

Der 128 PC kann Töne in ingesamt acht Oktaven wiedergeben, die mit 00 
bis 086 bezeichnet werden. Jetzt wollen wir unsere Tonleiter nochmals spie¬ 
len, diesmal allerdings über drei volle Oktaven: 

PLAY "02 CDEFGAB 03 CDEFGAB 04 CDEFGAB 05 C" 


Die Bezeichnungen 02 bis 05 geben hierbei die jeweilige Oktave vor 
(Buchstabe O, nicht Ziffer Null). 

Als nächstes wählen wir unter verschiedenen Instrumenten aus, die mit dem 
T-Parameter vorgegeben werden: 


Nummer 


Instrument 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


Klavier 

Akkordeon 

Zirkusorgel 

Trommel 

Flöte 

Gitarre 

Cembalo 

Orgel 

Trompete 

Xylophon 
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Die folgenden Töne wollen wir mit einer Flöte in der 4. Oktave spielen: 
PLAY "T4 04 CDEC” 

Der U-Parameter gibt verschiedene Lautstärken vor, die mit UO (leise) bis 
U9 (laut) anzugeben sind. Darüberhinaus besteht auch die Möglichkeit, 
Zwischentöne zu erzeugen, wobei den einzelnen Noten ein #-Zeichen (ein 
halber Ton höher) oder ein $-Zeichen (ein halber Ton tiefer) voranzustellen 
ist (z.B. #C oder $G). 

Mit der PLAY-Anweisung können wir die Dauer eines Tones beeinflussen. 
Hier die Parameter, die den einzelnen Noten vorangestellt sein müssen: 

W ganze Note 

H halbe Note 

Q Viertelnote 

I Achtelnote 

S sechszentel Note 

eineinhalbfache Länge wie angegeben 
(punktierte Note) 

Stehen diese Werte vor einem R, dann beziehen sie sich auf eine Pause, in 
der kein Ton erklingt. Die folgende PLAY-Anweisung spielt die ersten 
Noten der Melodie "Oh du lieber Augustin" mit einem Akkordeon: 

PLAY "TI 04 HG QAGFEC HC" 

Bei dieser Anweisung steht TI für Akkordeon und 04 für die 4. Oktave. 
Der erste Ton G ist eine halbe Note, die Töne A, G, F, E, C sind Viertel¬ 
noten und das letzte C ist wieder eine halbe Note. 

Auf dem 128 PC können Sie auch zwei- und dreistimmige Melodien spie¬ 
len. Im folgenden Beispiel erzeugen wir einen Akkord in der 4. Oktave: 

PLAY "04 VI C V2 E V3 G" 

Dabei spielt die erste Stimme VI ein C, die zweite Stimme V2 ein E und 
die dritte Stimme V3 ein E. Obwohl die einzelnen Stimmen hintereinander 
aufgeführt sind, erscheinen sie dennoch (fast) gleichzeitig. Bei mehrstim¬ 
migen Melodien ist zusätzlich für jede Note immer die zugehörige Stimme 
anzugeben. 
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Die Klangform der einzelnen Instrumente ist in der jeweils zugehörigen 
Hüllkurve gespeichert. Falls Sie mit einem anderen Instrument spielen oder 
den Klang eines vorgegebenen Instruments abändern möchten, können Sie 
dies mit der ENVELOPE-Anweisung tun, die folgende Parameter enthält, 
die jeweils durch Kommas getrennt sein müssen: 


ENVELOPE Hüllkurvennummer 
Anschwellzeit 
Abschwellzeit 
Beharrungszeit 
Ausklingzeit 
Wellenform: 


Impulsbreite 


(0 bis 9), 

(0 bis 15), 

(0 bis 15), 

(0 bis 15), 

(0 bis 15), 

(0 Dreieck) 

(1 Sägezahn) 

(2 Rechteck) 

(3 Rauschen) 

(4 Ringmodulation) 
(0 bis 4095) 


Neben der PLAY-Anweisung, die vorwiegend zum Spielen von Melodien 
eingesetzt wird, gibt es noch die SOUND-Anweisung. Sie dient zur Erzeu¬ 
gung besonderer Soundeffekte mit veränderlichem Frequenzgang oder 
sonstigen außergewöhnlichen Eigenschaften. Die SOUND-Anweisung ist 
folgendermaßen definiert, wobei jeder Parameter durch Komma abgetrennt 
sein muß: 


SOUND 


Stimme 

Frequenzwert 

Dauer 

Klangeffekt 


Maximalfrequenz für 
anschwellende Klangeffekte 
Dauer der Anschwellung 
Wellenform 


(1,2 oder 3), 

(0 bis 65535), 

(0 bis 32767 sechzigstel Sek.) 
(0 anschwellend) 

(1 abschwellend) 

(2 oszillierend) 

(0 bis 65535) 

(0 bis 32767) 

(0 Dreieck) 

(1 Sägezahn) 

(2 Rechteck) 

(3 Rauschen) 

(0 bis 4095) 


Impulsbreite 
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Der Frequenzparameter errechnet sich nach folgender Formel: 

Parameterwert = Frequenz (Hz) / 0.06097 

Nachfolgend eine Tabelle mit den wichtigsten Noten, ihrer Frequenz und 
dem zugehörigen Parameterwert. Die Parameterwerte verdoppeln sich für 
die nächsthöhere bzw. halbieren sich für die nächstniedrigere Oktave. 


Note Frequenz (Hz) Parameterwert 


4297 

4543 


C 

c# 

D 

D# 

E 

F 

F# 

G 

G# 

A 

A# 

B 

C 


262 

277 

294 

311 

330 

349 

370 

392 

415 

440 

466 

494 

523 


4822 

5100 

5412 

5724 

6069 

6429 

6807 

7217 

7643 

8102 

8578 


Zur Regelung der Lautstärke eines durch SOUND erzeugten Tons dient die 
VOL-Anweisung mit Werten von 0 bis 15. VOL 0 erzeugt dabei einen lei¬ 
sen und VOL 15 einen lauten Ton. 
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Verzeichnis der BASIC-Anweisungen und -Funktionen 


ABS 

AND 

APPEND 

ASC 

ATN 

AUTO 

BACKUP 

BANK 

BEGIN...BEND 

BLOAD 

BOOT 

BOX 

BSAVE 

BUMP 

CATALOG 

CHAR 

CHR$ 

CIRCLE 

CLOSE 

CLR 

CMD 

COLLECT 

COLLISION 

COLOR 

CONCAT 

CONT 

COPY 

COS 

DATA 

Bestimmt Absolutwert einer Zahl 

Logische UND-Verknüpfung 

Öffnet seq. Datei zum Anfügen von Daten 

Erzeugt ASCII-Wert eines Zeichens 
Arcus-Tangens-Funktion 

Automatische Zeilennumerierung 

Kopiert gesamten Disketteninhalt 

Wählt Speicherbank aus 

Faßt in IF...THEN...ELSE mehere Zeilen zusammen 
Lädt Maschinenprogramm in Speicher 

Lädt und startet CP/M von Diskette 

Zeichnet Rechtecke 

Speichert beliebigen Speicherbereich auf Floppy 
Liefert Sprite-Nummer nach Sprite-Kollision 

Gibt Inhaltsverzeichnis der Diskette aus 

Beschriftet Hires-Graphiken 

Erzeugt Zeichen aus ASCII-Codes 

Zeichnet Kreise 

Schließt logisches File 

Löscht sämtliche Variablen 

Lenkt Bildschirmausgabe auf Peripheriegerät um 
Löscht offene Dateien und reorganisiert Diskette 
Fragt Sprite-Kollision ab 

Setzt Farbe für Graphik und Text 

Verbindet zwei seq. Dateien miteinander 
Programmfortführung nach Unterbrechung 

Kopiert Disketten-Datei 

Cosinus-Funktion 

Speichert Datenwerte für READ-Anweisung 
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DCLEAR 

DCLOSE 

DEC 

DEF FN 

DELETE 

DIM 

DIRECTORY 

DLOAD 

DO...LOOP 

DOPEN 

DRAW 

DS 

DSS 

DSAVE 

DVERIFY 

EL 

ELSE 

END 

ENYELOPE 

ER 

ERR$ (ER) 

EXIT 

EXP 

FAST 

FETCH 

FILTER 

FN 

FOR...TO..STEP 

FRE 

GET 

GET# 

GETKEY 

G064 

GOSUB 


Schließt alle Kanäle zur Diskettenstation 

Schließt Kanal zur Diskettenstation 

Bestimmt Dezimalwert einer hexadezimalen Zahl 

Definiert Funktion 

Löscht Programmzeilen 

Dimensioniert Felder 

Liest Inhaltsverzeichnis von Diskette 

Lädt Programm von Diskette 

Programm-Endlosschleife 

Öffnet Kanal zur Diskettenstation 

Zeichnet Punkte und Linien 

Liest Fehlernummer des Diskettenlaufwerks 

Gibt Floppy-Fehlermeldung aus 

Schreibt Programm auf Diskette 

Überprüft Programmabspeicherung auf Diskette 

Liefert Zeilennummer bei Auftreten eines Fehlers 

Alternative bei IF...THEN 

Ende eines BASIC-Programms 

Definiert Hüllkurve für Soundprogrammierung 

Liefert Fehlercode 

Liest Fehlermeldung 

Verläßt DO...LOOP-Schleife 

Errechnet Potenz zur Zahl e 

Schaltet auf FAST-Modus um 

Holt Daten aus beliebiger Speicherbank 

Setzt Klangfilter-Parameter 

Ruft durch DEF FN definierte Funktion auf 

Leitet Zählschleife ein 

Bestimmt freien BASIC-Speicher 

Holt einzelnes Zeichen 

Holt einzelnes Zeichen von Peripheriegerät 

Wartet, bis Taste gedrückt 

Schaltet in C-64-Modus um 

Ruft Unterprogramm auf 
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GOTO 

Springt in angegebene Programmzeile 

GRAPHIC 

Wählt Graphik-Modus aus 

GSHAPE 

Liest Graphik aus String 

HEADER 

Formatiert Disketten 

HELP 

Listet fehlerhafte Programmzeile 

HEX$ 

Formt Dezimalzahl in Hexadezimalstring um 

IF..THEN..ELSE 

Fragt Bedingung ab 

INPUT 

Holt Eingabewert vom Bildschirm 

INPUT# 

Holt Daten von Peripheriegerät 

INSTR 

Gibt Position eines Strings in einem anderen an 

INT 

Bestimmt ganzzahligen Teil einer Zahl 

JOY 

Fragt Joystickposition ab 

KEY 

Belegt Funktionstasten 

LEFT$ 

Gibt linken Teil eines Strings wieder 

LEN 

Bestimmt Stringlänge 

LET 

Zuordnungsanweisung 

LIST 

Listet Programm 

LOAD 

Lädt Programm von Floppy oder Kassette 

LOCATE 

Setzt Graphikcursor 

LOG 

Berechnet natürlichen Logarithmus 

MID$ 

Gibt Teil eines Strings wieder 

MONITOR 

Ruft Maschinensprache-Monitor auf 

MOVSPR 

Bewegt Sprite über den Bildschirm 

NEW 

Löscht BASIC-Programm im Speicher 

NEXT 

Ende einer Zählschleife 

NOT 

Logische NICHT-Verknüpfung 

ON 

Verzweigt aufgrund eines Zahlenwertes 

OPEN 

Öffnet logisches File 

PAINT 

Füllt geschlossene Fläche einer Graphik aus 

PEEK 

Liest Inhalt einer Speicherzelle 

PEN 

Fragt Lightpen ab 

PLAY 

Spielt in Strings abgelegte Musiknoten 

POINTER 

Liefert Adresse einer Variablen im Speicher 

POKE 

Schreibt Wert in Speicherzelle 
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POS 

POT 

PRINT 

PRINT# 

PRINT USING 

PUDEF 

RCLR 

READ 

RECORD 

REM 

RENAME 

RENUMBER 

RESTORE 

RESUME 

RETURN 

RGR 

RIGHTS 

RND 

RRG 

RSPPOS 

RSPRCOLOR 

RSPRITE 

RUN 

RWINDOW 

SAVE 

SCALE 

SCNCLR 

SCRATCH 

SGN 

SIN 

SLEEP 

SLOW 

SOUND 

SPC 


Gibt Cursorposition in Zeile an 

Fragt Paddies ab 

Gibt Daten auf Bildschirm aus 

Gibt Daten auf Peripheriegerät aus 

Formatierte Ausgabe von Zahlen und Strings 

Definiert Steuerzeichen für PRINT USING 

Liefert Farbcode für Text und Graphik 

Liest DATA-Werte und legt sie in Variablen ab 

Setzt Schreib-/Lesezeiger für relative Dateien 

Beginn einer Kommentarzeile 

Benennt Diskettendateien um 

Neunumerierung des BASIC-Programms 

Setzt DATA-Zeiger auf beliebige Zeilennummer 

Rückkehr aus einer Fehlerbehandlungsroutine 

Rücksprung aus einem Unterprogramm 

Liefert Nummer des eingestellten Graphik-Modus 

Gibt rechten Teil eines Strings wieder 

Erzeugt Zufallszahl 

Weist Variablen die Werte der Prozessorregister zu 

Liefert Position und Geschwindigkeit eines Sprites 

Liefert akt. Code des Multicolor-Modus für Sprites 

Liefert Spriteattribute 

Startet Programmablauf 

Liest Parameter des eingestellten Windows 

Speichert Programm auf Diskette oder Kassette 

Verändert Maßstab bei Hires-Graphik 

Löscht Text- oder Graphikbildschirm 

Löscht Diskettendatei 

Bestimmt Vorzeichen einer Zahl 

Sinusfunktion 

Hält Programmausführung für die angegebene Zeit an 
Schaltet auf SLOW-Modus zurück 
Erzeugt beliebige Toneffekte 
Dient zur Formatierung des Bildschirms 
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SPRCOLOR 

SPRDEF 

SPRITE 

SPRSAV 

SQR 

SSHAPE 

STASH 

STATUS (ST) 

STEP 

STOP 

STRS 

SWAP 

SYS 

TAB 

TAN 

TEMPO 

TI$ 

TIME (TI) 

TRAP 

TROFF 

TRON 

UNTIL 

USR 

VAL 

VERIFY 

VOL 

WAIT 

WHILE 

WIDTH 

WINDOW 

XOR 


Setzt Farben für Sprites im Multicolor-Modus 

Ruft Sprite-Editor auf 

Setzt Sprite-Attribute 

Speichert Sprite in String oder umgekehrt 

Berechnet Quadratwurzel 

Speichert Graphik in String ab 

Überträgt Daten in Speicherbank 

Fragt Status ab 

Schrittweite in FOR...NEXT-Schleife 

Unterbricht BASIC-Programm 

Wandelt Zahl in String um 

Tauscht Daten zwischen Speicherbänken aus 

Ruft Maschinenprogramm auf 

Setzt Tabulator auf Bildschirm 

Tangens-Funktion 

Gibt Spielgeschwindigkeit für PLAY vor 
Abfrage der internen Uhr (HH,MM,SS) 

Abfrage der internen Uhr (1/16stel Sekunden) 

Verzweigt bei Fehler in Fehlerbehandlungsroutine 

Schaltet Ablauf Verfolgung aus 

Schaltet Ablauf Verfolgung ein 

Setzt Bedingung für DO...LOOP 

Übermittelt Variable an Maschinenprogramm 

Wandelt Ziffernstring in Zahl um 

Prüft, ob Programm richtig abgespeichert (nach SAVE) 

Setzt Lautstärke für SOUND-Anweisung 

Wartet auf bestimmten Speicherzelleninhalt 

Setzt Bedingung für DO...LOOP 

Setzt Strichstärke für Graphik 

Definiert Bildschirmfenster 

Logische EXKLUSIV-ODER-Verknüpfung 
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17 

18 

19 
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20 

<DEL> 

40 

( 

60 

< 


21 


41 

) 

61 

= 


22 


42 

* 

62 

> 


23 


43 

+ 

63 

? 


24 


44 

i 

64 

@ 

<WHT> 

25 


45 

- 

65 

A 


26 


46 

- 

66 

B 


27 

<ESCAPE> 

47 

/ 

67 

C 

<SH C= DISA> 

28 

<RED> 

48 

0 

68 

D 

<SH C= ENAB> 

29 

<CRSR RIGHT> 

49 

1 

69 

E 


30 

<GRN> 

50 

2 

70 

F 


31 

<BLU> 

51 

3 

71 

G 


32 

<SPACE> 

52 

4 

72 

H 

<RETURN> 

33 

j 

53 

5 

73 

I 

<LOWER CASE> 

34 

n 

54 

6 

74 

J 


35 

# 

55 

7 

75 

K 


36 

$ 

56 

8 

76 

L 

<CRSR DOWN> 

37 

% 

57 

9 

77 

M 

<RVS ON> 

38 

& 

58 

: 

78 

N 

<HOME> 

39 

i 

59 

i 

79 

0 
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ASC- i 

und CHR$- 

80 

P 

100 

B 

81 

Q 

101 

□ 

82 

R 

102 

□ 

83 

S 

103 

□ 

84 

T 

104 

□ 

85 

U 

105 

□ 

86 

V 

106 

□ 

87 

u 

107 

□ 

88 

X 

108 

□ 

89 

Y 

109 

H 

90 

z 

110 

0 

91 

[ 

111 

n 

92 

£ 

112 

□ 

93 

1 

113 

m 

94 

t 

114 

□ 

95 

«- 

115 


96 

B 

116 

□ 

97 

0 

117 

□ 

98 

m 

118 


99 

B 

119 

□ 


Tabelle (Fortsetzung) 


a 

140 


□ 

141 

<SH RETURN> 

$ 

142 

<UPPER CASE> 

BB 

143 


E 

144 

<BLK> 

m 

145 

<CRSR UP> 

b 

146 

<RVS OFF> 

H 

147 

<CLR> 


148 

<INST> 

0 

149 

□ 

<FLASH 0N> 

150 


<FLASH OFF> 

151 

□ 


152 

0 


153 

□ 


154 

0 


155 

ffl 


156 

<PUR> 


157 

<CRSR LEFT> 


158 

<YEL> 


159 

<CYN> 


Code- 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

p 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 
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ASC- und CHR$-Code-Tabelle (Fortsetzung) 


160 

<SH SPACE> 

168 

S 

161 

E 

169 

E 

162 

H 

170 

□ 

163 

n 

171 

CB 

164 

□ 

172 

Q 

165 

□ 

173 

H 

166 

m 

174 

a 

167 

□ 

175 

□ 


176 

DB 

184 

H 

177 

S 

185 

□ 

178 

a 

186 

□ 

179 

a 

187 

E 

180 

□ 

188 

□ 

181 

E 

189 

El 

182 

□ 

190 

H 

183 

n 

191 

H 


Codes 192 - 223 identisch mit 96 - 127 
Codes 224 - 254 identisch mit 160 - 190 
Code 255 identisch mit 126 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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Verzeichnis der Fehlermeldungen 


Fehlermeldung 
ERRS (ER) 

TOO MANY FILES 
FILE OPEN 
FILE NOT OPEN 
FILE NOT FOUND 
DEVICE NOT PRESENT 
NOT INPUT FILE 
NOT OUTPUT FILE 
MISSING FILE NAME 
ILLEGAL DEVICE NUMBER 
NEXT WITHOUT FOR 
SYNTAX 

RETURN WITHOUT GOSUB 
OUT OF DATA 
ILLEGAL QUANTITY 
OVERFLOW 
OUT OF MEMORY 
UNDEF’D STATEMENT 
BAD SUBSCRIPT 
REDIM’D ARRAY 
DIVISION BY ZERO 
ILLEGAL DIRECT 
TYPE MISMATCH 
STRING TOO LONG 
FILE DATA 

FORMULA TOO COMPLEX 
CAN’T CONTINUE 
UNDEF’D FUNCTION 
VERIFY 
LOAD 
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30 

BREAK 

31 

CAN’T RESUME 

32 

LOOP NOT FOUND 

33 

LOOP WITHOUT DO 

34 

DIRECT MODE ONLY 

35 

NO GRAPHICS AREA 

36 

BAD DISC 

37 

BEND NOT FOUND 

38 

-LINE NUMBER TOO LARGE 

39 

-UNRESOLVED REFERENCE 

40 

UNIMPLEMENTED COMMAND 

41 

FILE READ 
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FIoppy-DOS-Fehlermeldungen 

Nummer (DS) 

Fehlermeldung (DS$) 

0 

1 

2-19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

39 

50 

51 

52 

60 

61 

62 

63 

64 

65 

66 

67 

OK (kein Fehler) 

FILES SCRATCHED 
ohne Bedeutung 

READ ERROR (Blockheader nicht gefunden) 
READ ERROR (SYNCH-Zeichen nicht gefunden) 
READ ERROR (kein Datenblock vorhanden) 

READ ERROR (Prüfsummenfehler im Datenblock) 
READ ERROR (Hardwarefehler) 

WRITE ERROR 

WRITE PROTECT ON 

READ ERROR (Prüfsummenfehler im Header) 
WRITE ERROR (zu langer Datenblock) 

DISC ID MISMATCH 

SYNTAX ERROR (allgemein) 

SYNTAX ERROR (ungültiger Befehl) 

SYNTAX ERROR (zu langer Befehlscode) 
SYNTAX ERROR (ungültiger Dateiname) 

SYNTAX ERROR (Kein Dateiname angegeben) 
SYNTAX ERROR (ungültiger Befehl) 

RECORD NOT PRESENT 

OVERFLOW IN RECORD 

FILE TOO LARGE 

WRITE FILE OPEN 

FILE NOT OPEN 

FILE NOT FOUND 

FILE EXISTS 

FILE TYPE MISMATCH 

NO BLOCK 

ILLEGAL TRACK AND SECTOR 

ILLEGAL SYSTEM T OR S 
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70 NO CHANNEL 

71 DIRECTORY ERROR 

72 DISC FULL 

73 DOS MISMATCH 

74 DRIVE NOT READY 
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Index 


Ablaufverfolgung 111 
ABS 88 

Abschwellzeit 220 

Absolutwert 88 

Adressenverwaltung 159, 180 

Algebra 46 

ALGOL 13 

ALT-Taste 25 

AND 83 

Anschwellzeit 220 
Anwender-Dateien 148 
Array 46 
ASC 72, 124 
ASCII-Code 44, 72, 124 
ASCII-DIN-Taste 25 
ATN(X) 48, 95 
Ausklingzeit 220 
AUTO 16, 34 

BASIC 2.0 21 

BASIC-Dialekte 13 

BEGIN 79 

Beharrungszeit 220 

Belegung der Funktionstasten 24 

BEND 79 

Bildpunkte 202 

Bildschirm 18 

Binäres Suchen 141 

Bit 12 

Blank 43 

Block 148 

Blockgraphik 201 

Bogenmaß 48, 95 

Boolesche Operatoren 81 

BOX 204 

BUMP 215 

Byte 12 


C 13 
C 64 14 

Centronics-Schnittstelle 22 

CHR 72, 124 

CIRCLE 204 

CLOSE 31, 153 

CLR-Taste 24 

CLR-/HOME-Taste 27 

CMD 31, 153 

COBOL 13 

Code 14 

COLLISION 214 

COLOR 200 

COM AL 13 

Compiler 14 

Composite-Ausgang 197 

Composite-Norm 19 

CONT 110 

Cosinus 48, 95 

COS(X) 48, 95 

CP/M 18 

Cursor 26 

DATA 74 
Datasette 20 
Dateiname 150 
Dateitypen 148 
Dateiverwaltung 147, 175 
Dateneingabe ins Programm 74 
Datensatz bei relativen Dateien 
175 

Datentypen 41 
Datenzeilen 74 
DCLOSE 153 
DEFFN 98 
DELETE 16, 33 
DEL-Taste 35 
DIM 136 

Dimensionierung 136 
DIRECTORY 39, 148 
Direktmodus 26 
Diskette 175 
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Disketteninhaltsverzeichnis 148 
DLOAD 38, 149 
DO 70 

DO UNTIL 73 
DO WHILE 73 
DOS 149 
DRAW 203 
Drucker 22 
DS 57 

DSAVE 38, 149 
DS$ 57 

Eingabe von Werten 58 
Eingebaute Funktionen 87 
Ein-/Ausgabekanal 150 
EJECT-Taste 37 
EL 57 
ELSE 78 
END 79 
ENVELOPE 220 
ER 57 
ERRS 57 
Escape-Sequenz 25 
ESC-Taste 25 
EXIT 71 

Exklusives Oder 84 
EXP(X) 48, 95 

FALSE 81 
Farben 199 
Farbgraphik 198 
FAST-Modus 16, 20, 198 
Fehlerbehandlung 111 
Fehlerkorrektur 34 
Fehlersuche 107 
Felder 134 
Feldvariablen 135 
Fenster 132 
Fernsehgerät 18 
Fließkommazahlen 44, 105 
Floppylaufwerk 1541 21 
Floppylaufwerk 1571 21 


FN 57, 98 
FOR 64, 66 

Formatierte Ausgabe 128 
FORTH 13 
FORTRAN 13 
FRE 118 

Frei definierte Funktionen 98 
Frequenz 220 
Frequenzparameter 221 
Funktionstasten 23 

Ganzzahl-Funktion 90 
Geräteadresse 31 
Gerätenummer 151 
GETKEY 78 
GOSUB 101 
GOTO 78 
GRAPHIC 200 
Graphik 197 
Graphikmodi 199 
GSHAPE 211 

HEADER 38, 148 
Helligkeitsstufen 198 
HELP-Taste 25 
Hintergrundfarbe 198 
Hires-Graphik 16, 202 
Hochauflösende Graphik 200, 202 
Höhere Programmiersprache 13 
Hüllkurve 220 

IF 71, 78 

Impulsbreite bei Sound 220 
Indizierte Variablen 134 
INPUT 58 
INSTR 122 
INS-/DEL-Taste 35 
INT 90 

Integerzahlen 46 
Interne Uhr 126 
Interpreter 14 
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Kassette 20, 155 
KEY 24 

Klangeffekte 220 
Kommentar-Zeilen 60 

Label 76 
Laufschrift 127 
LEFTS 120 
LEN 120 
LINE FEED 25 
LISP 13 
LIST 30 

Listen Verarbeitung 115 
LLIST 31 
LOAD 37, 149 
Logische Filenummer 150 
Logische Files 128 
Logische Operatoren 83 
LOGO 13 
LOG(X) 48, 95 
LOOP 70 

Maschinensprache 14 
Matrixdrucker 22 
Menütechnik 102 
MID$ 121 
Monitor 198 
Monitor 1902 19 
MOVSPR 214 
MPS 1526 22 
MPS 801 22 
MPS 802 22 
Multicolor-Graphik 208 
Musik 217 
Musiknoten 221 

Natürlicher Logarithmus 48, 95 

NEW 28 

NEXT 64 

NO SCROLL 25 

NOT 83 

Noten 221 


Nullstring 43 

Oktaven 218 
ON...GOSUB 106 
OPEN 31, 150 
OR 84 

OUT OF DATA ERROR 77 
OVERFLOW ERROR 46 

Parallele Schnittstelle 22 

PGR 148 

Pi (Zahl) 48, 96 

Pixel 19, 202 

PLAY 218 

PLAY-Taste 36 

PL/1 13 

Potenz 48, 95 

PRINT 27, 50 

PRINT USING 129 

Prioritäten der Rechenarten 49 

Programmdateien 148 

Programmierhilfen 16, 29 

Programmiersprache 13 

Programmodus 26 

Programmschleifen 64 

Programmzeilen 28 

Pseudo-Zufallszahlen 97 

Quadratwurzel 94 

Rahmenfarbe 198 
RAM-Speicher 53 
READ 74 
Rechnen 46 
Record 175 
RECORD-Taste 36 
REL 148 

Relative Dateien 148, 175 
REM 60 

RENAME 39, 148 
RENUMBER 16, 32 
Reservierte Variablennamen 57 
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RESTORE 77 
RESUME 111 
RETURN-Taste 24 
RGBl-Ausgang 197 
RGBI-Norm 19 
RIGHTS 120 
RND 96 
RSPPOS 216 
RSPRITE 216 
RS-232-Schnittstelle 151 
RUN 28 
Runden 91 
RWINDOW 134 

SAVE 36, 149 
SCRATCH 39, 148 
Sektor 20, 148 
Sekundäradresse 150 
SEQ 148 

Sequentielle Dateien 148 
Sequentielles Suchen 140 
SGN 93 

Shell-Verfahren 144 
SHIFT-Taste 27 
Sinus 48, 95 
SIN(X) 48, 95 
SLOW-Modus 16, 20, 198 
Sortieren 140 
SOUND 220 

Soundprogrammierung 218 
SPRDEF 212 
SPRITE 213 
Spriteattribute 216 
Spriteparameter 216 
Sprites 209 
SPRSAV 212 
Sprunganweisung 78 
SQR 94 
SSHAPE 211 
ST 57 
STEP 66 
Stereoanlage 217 


Stimme 220 
STOP 110 
STOP-Taste 37, 70 
String suchen 122 
Stringlänge bestimmen 120 
Stringmanipulation 116 
Stringmüll 118 
Strings 42 

Strings formatieren 129 
Stringumwandlung 123 
Stringverkettung 119 
STR$ 123 
Suchen 140 
, binäres 141 
, sequentielles 141 
Super-Expander 197 
SYNTAX ERROR 27 

TAB 51 

Tabellenverarbeitung 115 
TAB-Taste 25 
Tangens 48, 95 
TAN(X) 48, 95 
Tastatur 23 
Teilprogramme 102 
Teilstrings 121 
Textfenster 132 
THEN 71, 78 
TI 57, 126 
Token 148 
TRAP 111 

Trigonometrische Funktionen 48, 
95 

TRON/TROFF 16, 111 
TRUE 81 

Typenraddrucker 22 

Uhr, interne 126 
Unterprogramme 100 
User-Dateien 148 
USR 148 
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VAL 105, 123 
Variablen 53 
Variablennamen 57 
Variablenspeicher 118 
Variablentabelle 117 
Variablentypen 55 
Vergleichssymbole 71, 73 
Vordergrundfarbe 198 
Vorzeichen-Funktion 93 

Warteschleife 78 

Wellenform 220 

Wert in String umwandeln 123 

Windows 132 

Winkelfunktionen 48, 95 

Wissenschaftliche Funktionen 95 

XOR 84 

Zahlen formatieren 129 
Zahlenformat 45 
Zeichenketten 42 
Zufallszahlen 96 

40/80 DISP 25 
80-Zeichen-Modus 19 
8-Bit-Rechner 12 
%-Zeichen 55 
$-Zeichen 55 



Spitzen-Softwgre für 

Commodore 128/128 D 


Wordstar 3.0 mit MailMerge 

Der Bestseller unter den Textverarbeitungsprogrammen 
für PCs bietet Ihnen bildschirmorientierte Formatierung, 
deutschen Zeichensatz und DIN-Tastatur sowie integrierte 
Hilfstexte. Mit MailMerge können Sie Serienbriefe mit per¬ 
sönlicher Anrede an eine beliebige Anzahl von Adressen 
schreiben und auch die Adreßaufkleber drucken. 
WordStar/MailMerge für den Commodore 128 PC 
Bestell-Nr. MS 103 ( 51/4 "-Diskette) 
Hardware-Anforderungen: Commodore 128 PC, Disket¬ 
tenlaufwerk, 80-Zeichen-Monitor, beliebiger Commodore- 
Drucker oder ein Drucker mit Centronics-Schnittstelle 

Für nur DM 199, (sFr. 178,-/öS 1890,-*) 

*inkl. MwSt. Unverbindliche Preisempfehlung 



Markt&Technik 

128er-Softwäre 


WorrlStar3jO 

mit MailMerge für den 
Commodore 128 PC 

öV/'-Diskette 
im Floppy 1541-Format 


Und dazu die 

weiterführende 

Literatur: 



Mit diesem Buch haben Sie eine wertvolle Ergänzung 
zum WordStar-Handbuch: Anhand vieler Beispiele 
steigen Sie mühelos in die Praxis der Textverarbei¬ 
tung mit Wordstar ein. Angefangen beim einfachen 
Brief bis hin zur umfangreichen Manuskripterstellung 
zeigt Ihnen dieses Buch auch, wie Sie mit Hilfe von 
MailMerge Serienbriefe an eine beliebige Anzahl von 
Adressen mit persönlicher Anrede senden können. 
Best.-Nr. 90181 
ISBN 3-89090-181-6 
DM 49,- (sFr. 45,10/öS 382,20) 

Erhältlich bei Ihrem Buchhändler. 


Markt ÄTechnik- 
Produkte erhalten 
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abteilungen der 
Warenhäuser, im 
Versandhandel, 
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geschäften oder 
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_ Software • Schulung _ 

Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße2,8013 Haar bei München, Telefon (089) 4613-0 
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Spitzen-Software für 

Commodore 128/128 D 


dBASE ll # Version 2.41 

dBASE II, das meistverkaufte Programm unter den Daten¬ 
banksystemen, eröffnet Ihnen optimale Möglichkeiten der 
Daten- u. Dateihandhabung. Einfach u. schnell können 
Datenstrukturen definiert, benutzt und geändert werden. 
Der Datenzugriff erfolgt sequentiell oder nach frei wählba¬ 
ren Kriterien, die integrierte Kommandosprache ermög¬ 
licht den Aufbau kompletter Anwendungen wie Finanz¬ 
buchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 
dBASE II für den Commodore 128 PC 
Bestell-Nr. MS 303 (5V 4 "-Diskette) 
Hardware-Anforderungen: Commodore 128 PC, Disket¬ 
tenlaufwerk, 80-Zeichen-Monitor, beliebiger Commodore- 
Drucker oder ein Drucker mit Centronics-Schnittstelle 

Für nur DM 199, "■* (sFr. 178,-/öS 1890,-*) 

*inkl. MwSt. Unverbindliche Preisempfehlung 



Markt&Technik 

128er-Software 


dBASE' 



A AshtonTate 


für den 

Commodore 128 PC 

5 '//'-Diskette 
im Floppy 1541-Format 


Und dazu die 

weiterführende 

Literatur: 


dBASE 



für den 

Commodore 128 I*C 


Zu einem Weltbestseller unter den Datenbank¬ 
systemen gehört auch ein klassisches Einführungs¬ 
und Nachschlagewerk! Dieses Buch von dem deut¬ 
schen Erfolgsautor Dr. Peter Albrecht begleitet Sie 
mit nützlichen Hinweisen bei Ihrer täglichen Arbeit mit 
dBASE II. Schon nach Beherrschung weniger Be¬ 
fehle ist der Einsteiger in der Lage, Dateien zu erstel¬ 
len, mit Informationen zu laden und auszuwerten. 
Best.-Nr. 90189 
ISBN 3-89090-189-1 
DM 49,- (sFr. 45,10/öS 382,20) 



Erhältlich bei Ihrem Buchhändler. 


Markt ÄTechnik- 
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Suitzen-Software für 

Commodore 128/128 D 


MULTIPLAN, Version 1.06 

Wenn Sie die zeitraubende manuelle Verwaltung tabellari¬ 
scher Aufstellungen mit Bleistift, Radiergummi und 
Rechenmaschine satt haben, dann ist MULTIPLAN, das 
System zur Bearbeitung »elektronischer Datenblätter«, 
genau das richtige für Sie! Das benutzerfreundliche und 
leistungsfähige Tabellenkalkulationsprogramm kann bei 
allen Analyse- und Planungsberechnungen eingesetzt 
werden wie z.B. Budgetplanungen, Produktkalkulationen, 
Personalkosten usw. Spezielle Förmatierungs-, Aufberei- 
tungs- und Druckanweisungen ermöglichen außerdem 
optimal aufbereitete Präsentationsunterlagen! 
MULTIPLAN für den Commodore 128 PC 
Bestell-Nr. MS 203 ( 51 / 4 "-Diskette) 
Hardware-Anforderungen: Commodore 128 PC, Disket¬ 
tenlaufwerk, 80-Zeichen-Monitor, beliebiger Commodore- 
Drucker oder ein Drucker mit Centronics-Schnittstelle 

Für nur DM 199, (sFr. 178.-/ÖS 1890,-^) 

*inkl. MwSt. Unverbindliche Preisempfehlung 



Markt&Technik 

128er-Software 


MICROSOFT 

MULTIPLAN 

für den 

Commodore 128 PC 

5V 4 "-Diskette 
im Floppy 1541-Format 


Und dazu die 

weiterführende 

Literatur: 



Dank seiner Menütechnik ist MULTIPLAN sehr 
schnell erlernbar. Mit diesem Buch von Dr. Peter 
Albrecht werden Sie Ihre Tabellenkalulation ohne Pro¬ 
bleme in den Griff bekommen. Als Nachschlagewerk 
leistet es auch dem Profi nützliche Dienste. 

Best.-Nr. MT 836 

ISBN 3-89090-187-5 

DM 49,- (sFr. 45,10/öS 382,20) 

Erhältlich bei Ihrem Buchhändler. 
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Bücher zum 
Commodore 128/128 D 



Markt&Technlk 


H. Ponnath 

Grafik-Programmierung CI28 

1986, 196 Seiten, inkl. Beispieldiskette 
Ein mächtiges Werkzeug hat der Anwender von 
Computergrafik mit dem Basic 7.0 des Commo¬ 
dore 128 PC in den Händen! Was man damit 
alles anfangen kann, soll Ihnen dieses Buch zei¬ 
gen: hochauflösende Grafik, Multicolorbilder, 
Sprites und Shapes werden anhand von vielen 
Beispielprogrammen besprochen. Die Video¬ 
chips und ihre Möglichkeiten sind ebenso 
Thema wie einige nützliche Assemblerroutinen, 
die Speicherorganisation, der 80-Zeichen-Bild- 
schirm und vieles andere mehr. Außerdem ent¬ 
hält das Buch eine Diskette mit allen Program¬ 
men. 

Best.-Nr. 90202 

ISBN 3-89090-202-2 

DM 52,-/sFr 47,80/öS 405,60 


Htttai'fcdtnlk 

Das — 
Commodore 

m 

Handbtc 


P. Rosenbeck 

Das Commodore 128- 
Handbuch 

1985, 383 Seiten 
Dieses Buch sagt Ihnen alles, 
was Sie über Ihren CI28 wis¬ 
sen müssen: die Hardware, 
die drei Betriebssystem-Modi 
und was die CP/M-Fähigkeit 
für Ihren Computer bedeutet. 
Aber Sie werden irgendwann 
Lust verspüren, tiefer in Ihren 
CI28 einzusteigen. Auch da¬ 
für ist gesorgt: an einen 
Assemblerkurs, der Ihnen zu¬ 
gleich die Funktionsweise 
des eingebauten Monitors 
nahebringt, schließen sich 
Kapitel an, die mit Ihnen auf 
Entdeckungsreise ins Innere 
der Maschine gehen. Daß die 
Reise spannend wird, dafür 
sorgen die Beispiele, aus 
denen Sie viel über die Interna 
des Systems lernen können - 
bis hin zur Grafik-Program¬ 
mierung. 

Best.-Nr. 90195 

ISBN 3-89090-195-6 

DM 52,-/sFr 47,80/öS 405,60 


Moikl k-dmik 


BASIC 7.0 
auf dem 
Commodore 



J. Hückstädt 

BASIC 7.0 auf dem 
Commodore 128 

1985, 239 Seiten 

Das neue BASIC 7.0 des 
C128 eröffnet mit seinen ca. 
150 Befehlen ganz neue Di¬ 
mensionen der BASIC-Pro- 
grammierung. Es ermöglicht 
dem Anfänger den einfachen 
und effektiven Zugriff auf die 
erstaunlichen Grafik- und Ton¬ 
möglichkeiten des CI28; der 
Fortgeschrittene findet die 
nötigen Informationen für 
(auch systemnahe) Profi-Pro¬ 
grammierung mit strukturier¬ 
ten Sprachmitteln. 

An praxisnahen Beispielen 
(wie z.B. der Dateiverwaltung) 
zeigt der Autor auf, wie man 
die für den 128er typischen 
Merkmale und Eigenschaften 
(Sprites, Shapes, hochauflö¬ 
sende Grafik, Musikprogram¬ 
mierung und Geräusche) opti¬ 
mal nutzt!. 

Best.-Nr. 90149 

ISBN 3-89090-170-0 

DM 52,-/sFr 47,80/öS405,60 
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Bücher zum 
Commodore 128/128D 



R. Schineis/M. Braun 

C 128-ROM-Listing: 
BASIC-7.0-Betriebssystem 

1986, 300 Seiten 

Dieses Buch ist für alle Programmierer und 
Anwender gedacht, die mehr über ihren CI28 
wissen möchten. Nach einer Einführung in die 
Arbeitsweise des C128 werden der interne 
Aufbau und die Wirkungsweise des BASIC- 
Interpreters erläutert. Vordem Hauptteil, einem 
vollständig kommentierten Assemblerlisting 
des C-128-BASIC-lnterpreters mit Cross- 
Referenzliste, werden Informationen über die 
Struktur und Interpretation des Listings und der 
Verweistabelle gegeben. 

Best.-Nr. 90220 

ISBN 3-89090-220-0 

DM 49,-/sFr 45,10/öS 382,20 






ANWENDER 

HANDBUCH 



J. Hückstädt 

CP/M-3.0- 

Anwenderhandbuch C128 

1986, 250 Seiten 
Der Leistungsumfang des 
CP/M-Systems wird in diesem 
Buch auf allen Ebenen erklärt. 
Wer nur vorhandene Software 
nutzen will, der wird mit allen 
Kommandos von CP/M ver¬ 
traut gemacht. Wer etwas tie¬ 
fer einsteigen will, der wird 
über den Aufbau von CP/M, 
die Details von BIOS, BDOS 
und CCP, die Kontroll- 
informationen für Dateiver¬ 
waltung (FCB) und vieles 
mehr informiert. Wer den letz¬ 
ten Schritt wagt und sich mit 
Assemblerprogrammierung 
beschäftigen will, der findet 
auch dafür die nötigen Hin¬ 
weise. 

• Ausführliche Behandlung 
der erweiterten CP/M-Version 
3.0. 

Best.-Nr. 90196 

ISBN 3-89090-196-4 

DM 52,-/sFr 47,80/öS 405,60 



Kl 


S. Vilsmeier 

3D-Konstruktion mit 
Giga-CAD Plus auf dem 
C64 

1986, 370 Seiten 
inkl. Diskette 

Mit Giga-CAD können Com¬ 
putergrafiken von besonderer 
Räumlichkeit und Faszination 
geschaffen werden. Giga- 
CAD Plus liegt diesem Buch 
auf zwei Disketten im Floppy- 
1541-Format bei. Giga-CAD 
Plus ist schneller und ein¬ 
facher zu bedienen, die Be¬ 
nutzeroberfläche wurde stark 
verbessert und der Befehls¬ 
satz erweitert. Die Eingabe 
erfolgt in erster Linie über den 
Joystick. Hardware-Anforde¬ 
rung: C64 mit Floppy 1541 
oder C128 (im 64'er-Modus), 
Fernseher oder Monitor. Joy¬ 
stick und Commodore- oder 
Epson-kompatiblen Drucker. 
Best.-Nr. 90409 
ISBN 3-89090-409-2 
DM 49,-/sFr 45,10/öS 382,20 
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JÜRGEN HÜCKSTÄDT 
Jahrgang 1949, ist Diplominge¬ 
nieur für Wasserbau. Im Rahmen 
seiner langjährigen Tätigkeit in ei¬ 
nem Ingenieurbüro kam er schon 
frühzeitig mit Personal Computern 
in Berührung. Er entwickelte ver¬ 
schiedene Softwarepakete für 
wasserwirtschaftliche und geodä¬ 
tische Anwendungen und wurde 
schließlich mit der Leitung der 
EDV-Abteilung beauftragt. Seit ei¬ 
nigen Jahren leitet er Seminare für 
BASIC- und Assemblerprogram¬ 
mierung und ist darüber hinaus 
auch als Übersetzer, Lektor und 
Autor von EDV-Fachliteratur tätig. 


BASIC 70 
auf dem 

Commodore128 

Ganz gleich, ob Sie bereits über Programmierkenntnisse verfügen oder 
nicht, dieses Buch wird Ihnen helfen, den größtmöglichen Nutzen aus 
dem leistungsstarken BASIC 7.0 des Commodore 128 PC zu ziehen. 
Selbst wenn Sie sich noch nie mit Computern befaßt haben, steht Ihnen 
dieses Buch zur Seite, um die BASIC-Programmierung von den einfach¬ 
sten Grundzügen an zu erlernen. Als unermüdlicher Helfer begleitet es 
Sie Schritt für Schritt durch alle Lernphasen, die hervorragenden 
Eigenschaften des BASIC 7.0 zunehmend besser zu verstehen und 
anzuwenden. 

Auf den einfachsten Grundlagen aufbauend eignen Sie sich bei der 
Durcharbeitung dieses Buches alle notwendigen Kenntnisse an, um 
immer anspruchsvollere Aufgabenstellungen zu bewältigen. 

Aus dem Inhalt: 

— Programmschleifen und -Verzweigungen 

— Listenverarbeitung 

— Indexsequentielle Dateiverwaltung 

— Sortierverfahren 

— Grafik- und Sonderprogrammierung 

Ein unentbehrliches Lehrbuch und Nachschlagewerk für jeden 
Commodore 128 PC-Besitzer! 
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